DDDODDDDDDDD TITI1II01 
DDDDDDDDDDDD LITT1I101 
DODDDDDDDDDD PERSE EES: 
dOD DOD Ii] 
DDD DOD II] 
DOD DDD Ii] 
DOD DOD II] 
DOD d0D Ii] 
DOD dDD Ii] 
ddd ddd Ii] 
00D dDD ee 
ddd DDD II] 
DOD DOD Ii] 
DOD DOD II] 
DOD ddd 11] 
DOD DOD Ii] 
DOD DDD Il] 
ddd odd 1] 
DDDDDDDDDDDD IIIT 
DODDDDDDDDDD IIT 
DODDDDDDDDDD PEPE EEES: 


**F ILE**]De*DISPLAY 
DDDDDDDD H1111 SSSSSSSS PPPPPPPP LL ABALAA vY YY 
DDDDDDDD M1111 SSSSSSSS PPPPPPPP LL AAAAAA YY YY 
dD oD I] $$ PP PP LL Aa AA YY YY 
DD dD I] $$ PP PP LL Aa AA YY YY 
dD dD I] $$ PP PP LL AA Aa YY YY 
dD oD 1] $$ PP PP LL AA Aa 7 OW 
oD oD I] SSSSSS PPPPPPPP LL Aa Aa YY 
DD oD I] SSSSSS PPPPPPPP LL AA AA YY 
DD DD I] SS PP LL AAAAAAAAAA YY 
DD dD 1] 33 «(PP LL AAAAAAAAAA YY 
dO oD li SS PP LL AA AA YY ceee 
oD dD I] 33 PP LL AA AA YY cove 
DDODDODDD Pees SSSSSSSS PP LLLLLLLLLLE AA AA YY eves 
DDDDDDDD W111 SSSSSSSS PP LLLLLLLLLL AA aA YY coer 
LL III] $S$SSSSSS 
LL W111 SSSSSSSS 
LL I] oS 
LL i] SS 
LL I] $$ 
LL I] $$ 
LL I] $SSSSS 
LL I] SSSSSS 
LL I] $$ 
LL I] $$ 
LL I] $$ 
LL 1] $$ 
LLELLELLLLE 111111 SSSSSSSS 
LLLLELLiLL M1111 $SSSSSSS 


Be Be Oe Be Se Be Be Fe Oe Se Be Be Se Be Se Se Se Se Be Se Se Se Se Se Se Se Oe ws Se Se Se Se Se Ge Se Se Se Se Se Se Se Ss Se Se Se Se Se Se Se SH Se Se Se Oe Se Be we 


DISPLAY 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


te te a 0 8 Ho 0 0 ss se 4 0 9 4 8 He ~~ 2 a a bs as 9 as ss ss 2b 2 2 2 ss ts 4 ss DOOD 


1 
13-Sep-1984 28:42:08 VAT Bt ieee 


MODULE DISPLAY ( 


neat. BL SSR 


BEGIN 


oa 
a 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH E S OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
Faanarcheiee’ NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE INFORMATION IN THIS SOFTWARE IS SUBJE 
AND SHOULD NOT BE CONSTRUED AS A COMM 
CORPORATION. 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


CT TO CHANGE WITHOUT NOTICE 
ITMENT BY DIGITAL EQUIPMENT 


FACILITY: DIRECTORY 
ABSTRACT: 


This module contains all of the routines necessary to display the 
information gathered about the selected files. 


ENVIRONMENT: 


AUTHOR : L. Mark Pilant 


VAX/VMS operating system, unprivileged user mode ut‘lities. 


CREATION DATE: 4=-Mar-1983 


MODIFIED BY: 
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v03-020 LMP0296 L. Mark Pilant, 6-Aug-1984 13:01 
Access the file by ‘‘file-ID" during /FULL if the device is 
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@ sequential device ices a magtape). This is to compensate 


for a bug in the magtape ACP. 


v03-019 Loree L. Mark Pilant, 25-Jul-1984 9:58 


heck the info needed flags, not the qualifier present flags, 


when determining if information is needed about a file. 
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LMP0227 L. Mark Pilant, 9-Apr-1984 11:20 

Use FIBSL_ACL STATUS to check the results of the READACL 
operation. Also, only read the ACL in 512 byte chunks, rather 
than trying to read in the entire ACL. 


LMP0220 L. Mark Pilant, 24-Mar-1984 23:33 
Remove references to journaling. 
LMP0212 L. Mark Pilant, 12-Mar-1984 15:01 


Make sure that a new channel is allocated not only when 
the device changes, but if no channel was previously assigned. 


LMP0271 L. Mark Pilant, 10-Mar-1984 12:49 
Display all of the useful information obtained directly from 
the disk ACP in the /FULL display. Also correct a bug that 
caused long file names to be truncated when the /SINC 
qualifier was the only qualifier given on the command Line. 


LMPO187 L. Mark Pilant, 2-Feb-1984 17:29 
Fix a bug that caused the first ACE to be dropped from the 
ACL display during a full display. 


LMPO182 L. Mark Pilant, 11-Jan-1984 12:48 
Only do selection when the /SELECT qualifier was given. 


LMPO176 L. Mark Pilant, 6-Dec-1983 9:08 
Use the correct display width when formatting an ACE. 
LMPO171 L. Mark Pilant, 23-Nov-1983 10:08 


Use the display width when formatting an ACE, not a fixed 
value. Also impliment the size selection item (this was 
dropped on the floor). 


LMPO163 L. Mark Pilant, 10-Oct-1983 9:32 
Correct a bug that caused an RMS IFI error when using an 
of the common qualifiers (and RMS was gathering the info). 


LMP0160 L. Mark Pilant 3-0ct-1983 15:10 
Return the channel if the ACP G10 to get the file 
information fails. 


LMP0157 L. Mark Pilant, 27-Sep-1983 10:57 
Add support for a unique message file. 
LMP01SS L. Mark Pilant 19-Sep-1983 11:33 


Fix a bug that caused the RMS Journal ing names to be i. 
in the wrong place when obtained directly from the ACP. 


LMP0140 L. Mark Pilant, 24-Aug-1983 1:55 
Remove temporary hack for identifiers. Also, fix a bus 
that caused second network access for network directories. 


DASO001 __ David Solomon 29-Jul-1983 
Journaling bit KUA is now ONLY_RU. 


LMPO119 L. Mark Pilant, 15-Jun-1983 11:58 


Correctly handle locked files. 


‘Vbeebo0 158 mt rae 9 $3:48:09 VAX-11 Bliss-32 V reg Page 3 
14-Sep-1984 12:19:32 DISKSVMSMASTER: ati OR DISPLAY.B32;1 (1) 
E 132 p1i3 ; Add support for identifiers. 
i: 117 or13 1: v03-003 LMP0108 L. Mark Pilant, 28-Apr-1983 11:05 
3 118 0118 1! Don't double space when Listing only the file name in 
: 1 8138 : one column. Also, add support for RMS journaling. 
121 0121 1! v03=002 LMP0100 L. Mark Pilan 14-Apr-1983 11:48 
; ¢ 3 § i Misc fixups. Also add SFORRAT "acl system service. 
1 4 91 é v03=001 LMP0096 L. Mark Pilant, 29-Mar-1983 10:10 
ae 
128 128 #1 
129 0129 1 
130 01350 1 


LIBRARY ‘SYSSLIBRARY:LIB’; 
REQUIRE ‘SRCS:DIRECTDEF'; 
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2 
SP 18.56 ©1984 23:42:09 VAX-11 Bliss-32 v4.0 
vb “600 12-8 08-19be 93:96:93 DISKSVMSMASTER: 
: 273 4 1 GLOBAL ROUTINE DIRSGET_INFO (FILE_FAB) = 
3; 276 675 1 
; 275 674 1 44 
3; er 675 1! 
3 aT or6 1 | FUNCTIONAL DESCRIPTION: 
: f oft : Get information about a file 
; 280 679 1 | CALLING SEQUENCE: 
; 4 » : DIRSGET_INFO (ARG1) 
; 2 6 § 1 § INPUT +} Op 
: : ° : ARG]: FAB address 
; 286 0685 1! tate wate 
; 287 Bone 1 i 
; 288 Bes 1 § ouTPUT "PARAMETERS : 
; 289 688 1! no 
; 290 0689 1} 
: 291 0690 1! SmPLECET Bs 
; 29 0691 1: 
3; a 0692 1! 
; 296 0693 1 ' ROUTINE VALUE: 
; 295 0694 1! 1 
3 0695 1! 
3 aor 0696 1 | SIDE EFFECTS: 
; 298 0697 1! none 
:; 299 0698 1! 
; 5300 06 1 i- 
13 301 0700 1 
3 $0 0701 BEGIN 
; 4 
; 304 070 MAP 
; 305 0704 2 FILE_FAB : REF SBBLOCK; ! FAB address 
3; 306 0705 
3 S07 0706 LOCAL 
; 308 0707 FAB : REF $BBLOCK, ! Address of the FAB 
3 44 0708 2 NAM : REF S$BBLOCK, ! NAMe block address 
3 19 344 STATUS; ' Local routine return status 
3 HE 0711 EXTERNAL ROUTINE ; 
3 ‘7 orig DIRSFILE_ERROR; ' File error signaling routine 
3 15 0714 ! Assume success. 
; 1g Bre 
; +4 Bots STATUS = SS$_NORMAL; 
: » gris ! Set pointers to the necessary RMS data structures. 
: $f 720 CHSMOVE (NAMSC_BLN, .FILE_FABCFABSL_NAM], INFO_ NAM) ; ' Copy NAMe block 
3 $§ 721 NAM = INFO_NAM> Set NAMe b och address 
; 33 ? : FAB = .FILE_FAB; i Assume from SSEARCHed FAB 
3 Ses g $ ! Check to see whether a legal file specification has been SSEARCHed. 
3 $$ 7 $ IF NOT .(FABCFABSL -PEV}}<881 TPOSST 10M (DEV$V_DIR), 1> 
: $8 4 5 a NOT .NAMLNAMSV_NODE ) 
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Woe-b00 year SRe F378:93 | NEeadmRAASTERCCDIA’SRCSoISPLAY.832;1¢%" (36 


! See if this file matches the criteria specified by the common command 
' qualifiers. 


FABCFABSW IFl) = a nce Ys. jase is there 
STATUS = C1BsQuAL hice MATCH (CMN_QUAL_CTX, “FAB LINE DE 
FABLFABSW_I = 0; Fin 


; 0 729 BEGIN 

: 1 730 FAB FABSL $15 = $58. NOTFILEDEV; 

3 § 731 FABLFABSL 

; f ¢ bi IR a LeRROR (DIRS OPENIN, .FAB); 

met Sree 2 

; $ 07 6 IF .(FABLFABSL_DEV])<S$BITPOSITION (DEV$V_FOR), 1> 

: 386 o736 § eMac cin 

: 340 0739 FAB FABSL $18] = ss$_ DEVFOREIGN; 

: 1 740 FABCFABSL-S 

; 4g 41 DIR RSF ILE ERROR (DIRS _OPENIN, .FAB); 

; ts ares END: 

; “8 oF ! FILL some of the initial portions of the display block. 

: 348 hk CHSFILL (0, DIR_C -LENGTH. pd iSPLAY LOCK); 

; 349 0748 2 DISPLAY_BLOCKCDIR—W_FID_N NARCNAMSW_F ID_NUM); 

; 350 0749 2 DISPLAY-BLOCK(DIR—W-FID- Sea = .NAMCNAMSW-FID"SEQ); 

3 351 0750 2 DISPLAY-BLOCK(DIR—W-FID- RVN NAMCNAMSW_FID-RVNJ; 

: 3 0751 ISPLAY-BLOCK(DIR-8_FNS “NAMENAMSB. RS ; 

: 35 0738 CHSMOVE™ (. NAMSB-RSLJ, * NAMCNAMSL RSA), DISPLAY_BLOCKCDIR_T_FILENAME)); 
3; 354 075 CHSMOVE (NAMSC_DVI, NAM T bvii BISPLAY_BLOCKCBIR_T_Dv1J); 

; 355 0754 2 DISPLAY_BLOCK(BIR_6_NODE) = .RAMCNAMSB_NODET; 

3 30 0755 DISPLAY BLOCK(LDIR_B_DEV] = .NAMCNAMSB_DEVJ; 

3; 357 0756 2 DISPLAY-BLOCK(DIR-B-DIRJ = .NAM NASB B-DIRI: 

; 358 0757 2 DISPLAY“BLOCK DIR “B"VER] = .NAMLNAMSB-VER 

: $23 0738 DISPLAY-BLOCKCDIR-V~SQD) = UPABLEABSC. VDEV))<$B1TPOSITION (DEV$V_SQD), 1>; 
: 361 0760 ! If it is not a network ptrectery operation, it is necessary to change the 
; 305 376) ! FAB address for the following RMS/ACP operations. 

; $06 Ores IF NOT .NAMCNAMSV_NODE] THEN FAB = INFO_FAB; 

: 366 0765 ! Get the requested information about the file and put it in the display 
: 67 0766 i block. 

: 369 0768 IF = QUAL FLAGSCDIR_V_NEED_FHC] OR .QUAL_FLAGSCDIR_V_NEED_DAT] 

+ 370 0769 2 OR .QUAL-FLAGS(DIR-V“NEED-PRO] OR .QUAL~FLAGSCDIR—V_NEED_SUM 

; n 9770 OF “QUAL “FLAGSCDIR~VINEED-JNLJ OR .QUAL~FLAGSCDIR~V~QUAL~ACL 

; ig 0778 BEGIN 

: 37% 077 V_NODE) 

: 375 0774 he STATUS ="DIRSRMS_FILL (FAB, .NAM) 

: 376 0775 ELSE STATUS = DIRSACPTFILL (.FAB, .NAM); 

Pio a ie 

: 379 0 28 DISPLAY_BLOCKCDIR_L_STATUS) = .STATUS; 
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H 7 7 $ IF .STATUS EQL LIBS_FILFAIMAT 

; 8 7 THEN RETURN 1 ! Return if not a candidate 

; 389 788 ELSE IF .DISPLAY_ BLOCKCDIR_L_STATUS) 

3 oy 44 THEN DISPLAY_BLOCKCDIR_C_STATUS] = .STATUS; 

5 3 Ore ! Now that all of the specified common qualifiers have been checked, check 

3 7 8238 ! the file size if necessary. 

: 395 0794 IF .QUAL_FLAGSCDIR_V_SELE SIZE] 

>; 396 0795 AND .MIN-BLOCK GTR™(TF .QOAL FLAGSCDIR V_ SIZE_ALL] OR .QUAL_FLAGSCDIR_V_SIZE_ALLOJ 
; 397 0796 THEN .DISPLAY_BLOCR(BIR_L-HIBLK 

; 398 $78 ELS “DISPLAY BLOCK DIR_L_EFBLKJ) THEN RETURN 1; 

; 399 796 IF .QUAL_FLAGSCDIR_V_SELE S$] 

; 400 0799 AND .MAX-BLOCK LSS"(TF .Q0A AGSCOIR_V_SIZE_ALLJ gr -QUAL_FLAGSCDIR_V_SIZE_ALLOJ 
; 401 0800 THEN .DISPLAY_BLOCR(BIR_L-HIBLK 

: rt ett ELSE .DISPLAY_BLOCKCDIR_L_EFBLK]) THEN RETURN 1; 

§ tbe o80$ ! The file is indeed a candidate for being displayed. Proceed to do it. 

; 406 0805 QUAL_FLAGSCDIR_V_FILE_FOUND) = 1; ! Note that something was found 
; 407 0806 IF .GUAL_FLAGSCDIR_V_GUAL_FULLI 

; 408 080 THEN DIRSSHOW_FULL” (J 

; 409 0808 ELSE DIRSSHOW_INFO (); 

; 410 0809 

3 «6411 0810 RETURN 1; 

3 re | 0811 

3 41 0812 1 END; ! End of routine DIRSGET_INFO 


-TITLE DISPLAY 

-IDENT \v04-000\ 

-PSECT DIRSCOMMON,NOEXE, OVR,O 
00000 QUAL_FLAGS: 


-BLK 8 
00008 COLUMNCOUNT: 
0000¢ COLUMN, INDEX: ; 
00010 COLUMN WIDTH: ; 
00014 WORST ERROR: ‘ 
00018 CHN_QUAL_CTX: : 
0001¢ DISPLAY BLOCK: ; 
900 O CHANNEL:.BLKB 4 

0024 DEVICE_NAME : = 

00034 LINE_DESC: 
0003C LINE_BUFFER: 

-BLKB = 1024 
0043C TOTAL_USED: 

-BLKB 4 
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00440 TOTAL_ALLOC 
00444 TOTAL_FILES 
00448 GRAND_USED: 


0044C GRAND_ALLOC: 
00450 GRAND_FILES: 


00454 GRAND_DIRS: 
00458 PREV_DIR: 
00557 


. LKB 
00558 PREV_DIR_LEN: 
0055C PREV_FILE: 

-BLKB 


00658 


-BLKB 
0065C PREV_FILE_LEN: 
00660 VERSION_COUNT: 
00664 VERSION_INDEX: 


00668 FIRST_XAB: 


0066C INFO KABINE = 


“WORD 
6B4 INFO_XABPRO: 
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14 DISPLAY .WIDIN: 
00818 FILENAME “WIDTH: 
0081C OWNER_WIDTH: 

00820 SIZE _WIDTH: 
00824 MIN_BLOCK: 
00828 MAX_BLOCK® 
0082C ACL_LENGTH: 
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00830 OUTPUT_RAB: 
-BLKB 


-BLKB 4 
68 


VAX 
ISK 


“11 
SK$V meh 


$-32 V 
TER: cbt 


-PSECT SPLITS,NOWRT ,NOEXE,2 


eASCII = \RWED\ 
«LON 

atts) hoe P.AAB 
A \WED\ 


«LONG 

«ADDRESS P.AAD 

sASCII = \RED\ 
KB 1 


-LONG $3 
-ADDRESS P.AAF 
eASCII = \ED\ 
-BLKB 

- LONG 

»ADDRESS P.AAH 
eASCII = \RWD\ 
-BLKB 1 
-LONG $ 
-ADDRESS uae 
eASCIIT = \WD\ 
-BLKB 


LONG 
“ADDRESS. P.AAL 
“ASCII \RD\ 
-BLKB 


LONG 
“ADDRESS P.AAN 
ott \D\ 


eASCIIT = \RE\ 
-BLK § 

LONG 

eADDRESS P.AAV 
eASCII = \EN 
-BLKB 

- LONG 

+ADDRESS P.AAX 
ot \RW\ 


» LONG 
eADDRESS P.AAZ 
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| 57 9009¢ P.ABB: ASCII \W\ : 
“BLKB 

SHIRL. BR #80 ERE) aa 3 

| 3 AS P ABD: “ASC R\ ; 

a aaa | 

90000000, 00084 "ABE: LONG ; 

000000' 00088 “ADDRESS P.ABF : 


-PSECT SOWNS,NOEXE ,2 
00000000° 00000000" 00000000° 00000000° 00000000° 00000000' 00000 PROT_TABLE: 


ADDRESS P.AAA, P.AAC, P.AAE, P.AAG, P.AAL, = : 
00000000' 00000000' 00000900 90000000" 9000000 ° 900000 * 00018 P.AAK, P.AAM, P.AAO, P.AAQ, P.AAS, P.AAU, = ; 
00000000" 00000000* 00000000* 00000000' 00030 P.AAW, P.AAY, P.ABA, P.ABC, P.ABE : 
-EXTRN LIBSGET_VM, |. IBSQUAL_FILE_MATCH 
SEXTRN LIBS_FICFAIMAT, DIRS-NEWDIRECT 
EXTRN DIRS-NOBRFILEIO 
SEXTRN DIRS"NOBRCREDAT 
SEXTRN DIRS-NOBRREVDAT 
ZEXTRN DIRS"NOBREXPDAT 
SEXTRN DIRS-NOBRBAKDAT 
SEXTRN DIRS“FULLFILEID 
XTRN DERS“NOFUFILEID 
SEXTRN DIRSTFULLSIZE, DIRS_FULLOWNERID 
TEXTRN DIRS"FULLOWNERUIC 
SEXTRN DIRS“NOFUCREDAT 
SEXTRN DIRS~FULLCREDAT 
EXTRN DIRS"NOFUREVDAT 
“EXTRN DIRS~FULLREVDAT 
SEXTRN DIRS"NOFUEXPDAT 
SEXTRN DIRS"FULLEXPDAT 
EXTRN DIRS~NOFUBAKDAT 
SEXTRN DIRS"SULLBAKDAT 
EXTRN DIRS"FILEORG, DIRS_FILORGSEQ 
EXTRN DIRS"FILORGREL, DIAS_FILORGIDX 
SEXTRN DIRS"IDXPROLOG, DIRS"IDXAREA 
-EXTRN DIRS"FILORGUNK, DIRS"FILEATIR 
SEXTRN DIRS"MAXBKTSIZ. DIRS~BUCKETSIZ 
“EXTRN DIRS~GBL BUF CNT DIRS-VERLIMIT 
EXTRN DIRS“NOVERLIMIf 
“EXTRN DIRSTFILATRCTG, DIRS_FILATRCTB 
SEXTRN DIRS"FILATRUCK, DIRS—F ILATRNOBAK 
“EXTRN DIRS "FILATRWRBAK 
SEXTRN DIR “F ILATRRDCHK 
“EXTRN DIRS"FILATRWRCHK 
“EXTRN DIRS “FILATRBADACL 
SEXTRN DIRSTFILATROIR, DIRS_FILATRBADBLK 
“EXTRN DIRS"FILATRNOCHRG 
| *EXTRN DIR “F ILATRERASE 
“EXTRN DIRS“RECFORMAT, DIRS_RECFMTF IX 
.EATRN DIRS"RECFMTVAR, DIRS"RECFMTVEC 
| “EXTRN DIRS"RECFMTUDF, DIRS"RECFMTSTM 
| 
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; Routine Size: 368 bytes, Routine Base: $CODE$ + 0000 


| 3 
DISPLAY besa =1984 42:09 VAX-11 Bliss=-32 V4.0-74 Page 16 
VOe-000 127808- 1882 93:48:93 PTET RVMGMASTERS (OIA Sec SDISPLAY.032:1 ° (38 
| 6 0706 «CA OO 009F MOVAB INFO. FAB : 
1 04 AA EB 000K4 4$ BLBS QUAL FLAGS+4, 5$ : 0768 
12 04 AA 1 £0 000A8 BBS #1, QUAL_FLAGS+4, 5$ : 
OD 04 AA j E OA BBS ¢° QUAL“FLAGS*+4, 5$ + 0769 
08 04 AA £ B BBS #3, QUAL“FLAGS+4, 5$ : 
0 AB 04 £0 0008 BBS #4" QUAL ELAGS+4, S$ : 0770 
1 6A €E9 000BC BLBC  QUAL_FLAGS, 8S : 
0B 3% OA 1 €1 O00BF 5$ BBC #1, SO(NAMS, 6% + 0774 
7 DD OOC4 PUSHL NAM : 
| 8 0D oce PUSHL FAB : 
| 0000v CF 08 FB 000C CALLS #2, DIRSRMS_FILL : 
: 11 OOCD BRB 7$ : 
7 DD OOOCF 6$ PUSHL NAM : 0775 
58 DD 00001 PUSHL FAB : 
| 0000v CF 02 FB 00005 CALLS #2, DIRSACP_FILL 
59 DO 00008 78: MOVL RO, STAT ; 
1¢)~=OoBA 59 DO 00008 8S: MOV STATUS @D1SPLAY_BLOCK : 0778 
02 As 01 AE 9000F MNEGW #1, 2(FAB) : 0783 
34 AA OF OOOE3 PUSHAB LINE_DESC : 0784 
ze D4 OOOES CLRL 3s = (SPY : 
58 DD O00E8 PUSHL FAB ; 
18 AA OF OOOEA PUSHAB CMN_QUAL_CTX : 
000000006 00 04 FB OOOED CALLS #4, LIBSQUAL_FILE_MATCH : 
59 .- 50 DO 000F4 MOVL RO, STATUS ; 
02 AB& B84 000F7 CLRW =. 2( FAB) : 0785 
000000006 8F 59 D1 OOOFA CMPL STATUS, #LIBS_FILFAIMAT " 0786 
69 13 00101 BEQL 18$ ; 
04 1¢ =BA E9 00103 BLBC aDISPLAY_BLOCK, 9$ : 0788 
1¢ =6BA 59 DO 00107 MOVL STATUS, SDISPLAY_BLOCK ; 0789 
47 02 AA 02 £1 00108 98: BBC #2, QUAL_FLAGS+2. 16$ : 0794 
50 1¢ AA DO 00110 MOVL DISPLAY BLOCK, RO : 0796 
| 05 02 AA 04 £9 00114 #4, QUAC_FLAGS+2, 108 : 0795 
07 02 AA 05 £1 00119 BBC #5. QUAL-FLAGS+2. 11$ ; 
50 012D cd »bO 9011 10$:  MOVL 301(R0),~RO + 0796 
05 11 001 BRB : 
50 0131 CO DO 00125 118: Mov. 305(R0), RO : 0797 
50 0824 CA D1 0012A 128:  CMPL HIN BLOCK, RO : 0795 
B 14 OO012F BGTR 1 : | 
21 02 AA 02 €1 00131 BBC #2, QUAL_FLAGS+2, 16$ : 0798 
50 1¢ AA 00 001 MOVL DISPLAY BLOCK, RO : 0800 
05 02 AA 04 EC 0013A BBS #4, QUAC_FLAGS+2, 13$ ; 0799 
| 07 02 AA 05 €1 0013F BBC tT QUAL“FLAGS+2, ; 
50 012D CG DO 00144 1 MOVL 30{(R0), R : 0800 
05 11 o149 BRB 1 : 
50 0131 CO DO 0014B 148: move 305(RO), RO > 0801 
50 0828 CA D1 00150 15$:  CMPL  MAX_BLOCK, RO : 0799 
15 19 001 BLSS 18s ; 
AA 0 88 00157 16$: BISB2 #32, QUAL_FLAGS+4 ; 0805 
/ 07 01 AA 1 €1 00158 BBC #1, QUAL_PLAGS+1, 17% 3; 0806 
| 0000v CF 9 re a183 CALLS ft DIRSSHOW_FULL : 0807 
| 0000v CF 0 FB 0167 17%: CALLS #0, DIRSSHOW_ INFO > 0808 
50 01 p 00 16¢ 18$: MOVL #1. R > 0810 
| 4 O016F RET > 0812 
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Esseeri9Re 23:48:09 YMMCL ties: 
ROUTINE DIRSRMS_FILL (FILE_FAB, FILE_NAM) = 
'e¢ 
i FUNCTIONAL DESCRIPTION: 
This routine fills in the information requested from RMS. 


i CALLING SEQUENCE: 
i DIRSRMS_FILL (ARG1, ARG2) 


i INPUT PARAMETERS: 
ARG]: address of the FAB 
ARG2: address of the NAMe block 


i IMPLICIT INPUTS: 
none 


none 
i IMPLICIT OUTPUTS: 
none 


i ROUTINE VALUE: 
1 if successful — 
error code otherwise 


i SIDE EFFECTS: 
The ey eee ee is collected and put into the display 


' 

' 

' 

' 

' 

' 

‘ 

' 

' 

] 

' 

! 

' 

: 

: OUTPUT PARAMETERS: 
] 

' 

' 

' 

] 

' 

' 

' 

' 

' 

information block. 
' 


BEGIN 
MAP 
FILE_FAB : REF SBBLOCK, ! Address of the FAB 
FILE_NAM : REF SBBLOCK; ! Address of the NAMe block 
LOCAL 


STATUS; ' Routine exit status 
! Set up for the RMS OPEN. 


If NOT .FILE_NAMCNAMSV WILDCARD) 
THEN STATUS = $SEARCH TFAB = .FILE_FAB) 
ELSE STATUS = .FILE_FABCFABSL_STS); 


' If the STS is success and the STV is in error, set the return status to the 
' STV value. This only happens on network directory operations, and is the 

' method by which RMS/FAL returns back any errors that occurred while 

! attempting to obtain the file attributes. 


If FILE FABCFABSL_STS) AND .FILE_FABLFABSL_STV) NEQ 0 
THEN IF ROT .FILE FABLFABSL_STV 
THEN STATUS = .FICE_FABCFABSL_STV); 
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15-Sep-1984 23:48:08 VAX-11 Bliss-32 V4.0-74 Page 19 
14-Sep-1984 12:19:32  DISKSVMSMASTER:(DIR.SRCIDISPLAY.B32;1 (4) 
IF .STATUS EQL RMS$_NOJ THEN STATUS = RMS$_NORMAL; 
! Now fill the display block with the information gathered by RMS. 
DISPLAY_BLOCK(DIR_V_CONTIG] = .FILE_FABCFABSV_CTG); 
DISPLAY-BLOCK(DIR-V-CONTIGB) = .FILE_FABCFABSY cet : 
DISPLAY-BLOCKEDIR-V~SQD) = .(FILE FABLE ABSL DEV])<$BITPOSITION (DEV$v_SQD), 1>; 
DISPLAY_BLOCK([DIR_L_HIBLK) = .FILE_FABCFAB c ALQ); 
DISPLAY-BLOCKEDIR-W-DEFEXT) = .FILE_FA CFA Q peas; 
DISPLAY_BLOCK(DIR_V_RTYPE) = .FILE FABCFABSB_RFM); 
DISPLAY-BLOCKCDIR-V-FILEORG) = ,FICE_FABLFABSB_ORG) / 16; 
IF (DISPLAY BLOCKEDIR B VFCSIZE) = .FILE_FABLFABSB.FSZJ) EQL 0 
THEN DISPLAY BLOCK(DIR_6 VFCSIZEJ = 2; 
DISPLAY _BLOCR(DIR_B_RATTRIB) = -FILE_FABEFABSB_RAT : 
DISPLAY-BLOCK DIR-B-BKTSIZE = ,FILE-FABCFABSB-BKS); 
DISPLAY-BLOCK DIR-WORSIZE = FILE FABCFABSW_MRSJ; 
DISPLAY_BLOCK(DIR_W_GBC) = .FILE_FABCFABSW_GBC); 
DISPLAY BLOCKCDOIR W VERLIMIT] = . INFO XABFHCCXABSW VERLIMIT); 
IF (DISPLAY BLOCKEDIR L_EFBLK] = .INFO_XABFHCCXABSC_EBKJ) EQL 0 
THEN DISPLAY BLOCKCDIR C_EFBLK) = -FILEFABLFABSL_ACQI 
ELSE IF .INFO_XABFHCCXABSW FFB) EQL 
THEN DISPLAY_BLOCKCDIR_L_EFBLK] = .DISPLAY_BLOCKCDIR_L_EFBLK) - 1; 
DISPLAY_BLOCKCDIR_L_CDTO) = .INFO_XABDATCXABSL_COTO); 
DISPLAY-BLOCKCDIR“L-CDT4) = .INFO-XABDATCXABSL_CDT4]; 
DISPLAY-BLOCK(DIR-L-RDTO] = .INFO-XABDATCXABSL_RDTO); 
DISPLAY-BLOCKEDIR-L-RDT4) = .INFO-XABDATCXABSL_RDT4]; 
DISPLAY-BLOCK(DIR-L-EDTOJ = .INFO-XABDATCXABSL_EDTO); 
DISPLAY-BLOCKE[DIR-L_EDT4) = .INFO-XABDATCXABSL_EDT4]; 
DISPLAY-BLOCK(DIR-L-BDTO) = .INFO-XABDATCXABSL_BDTO); 
DISPLAY-BLOCK(DIR-L~BDT4) = ,INFO-XABDATCXABSLBDT4); 
DISPLAY“BLOCKCDIR~W-REVISION) = .INFO_XABDATCXABSW_RVNJ; 
DISPLAY_BLOCK(DIR_L_FILEOWNER) = .INFO KABPROLKABSL VIC); 
DISPLAY_BLOCKCDIR_W_FILEPROT] = .INFO_RABPROCXABSW_PROJ; 
DISPLAY_BLOCK([DIR_L_MRN) = .FILE_FABCFABSL_MRN); 
DISPLAY-BLOCK DIR-B-NOKE YS) = . INFO KABSUATXABSE NOKI; 
DISPLAY_BLOCK(DIR-W_PVN) = .INFO_XABSUMCXABSW PVA); 
DISPLAY-BLOCKEDIR~B-NOAREAS) = .INFO_XABSUMLXABSB_NOA); 
RETURN .STATUS; 
1 END; ! End of routine DIRSRMS_FILL 
.EXTRN SYSS$SEARCH 
001C 00000 DIRSRMS_FILL: 
-WORD Save R2,R3,R4 ; 0813 
4 00000000" EF 9 902 MOVAB DISPLAY BLOCK, R4 ; 
; 6 Ac D MOVL FILE_FAB, R ; 0859 
: aC 00 00000 MOVE FALE NAM, R ; 0858 
AO €8 00011 BLBS =-_—«s$3(RO), 18 ; 
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Routine Base: S$CODE$ + 0170 


; Routine Size: 


H 3 
DISPLAY 15-Sep-1984 23:42:09 VAX=11 Pliss-32 V4.0-74 P 1 
“Woeeb00 1a=8eb-19be $3:19:93 DISKSVMSMASTERSEDIA. SRCSDISPLAY.B32; 109° 8} 


: 18 318 : ROUTINE DIRSACP_FILL (FILE_FAB, FILE_NAM) = 

; 1 218 1 fee 

3 ¢ 919 1! 

3 Z 4 Y : FUNCTIONAL DESCRIPTION: 

s 25 9 § 1! This routine gathers the requested information about the file from 
; 6 \) 1! the ACP. 

; 527 924 1! 

; 528 0925 1 ! CALLING SEQUENCE: 

,; 5% 2 44 $ : : DIRSACP_FILL (ARG1, ARG2)) 

3 2 1 89 3 1 ! INPUT PARAMETERS: 

ZS ¢ 09 1! ARG1: address of the FAB 

; 2 8 9 ! ARG2: address of the NAMe block 

3 335 09 § 1 ! IMPLICIT INPUTS: 

3; 3% 09 1! none 

3 «OS 0934 1! 

; 538 0935 1 ! OUTPUT PARAMETERS: 

; 539 9938 1! none 

; 540 Be 1! 

3; 541 0938 7 ! IMPLICIT OUTPUTS: 

s S64 0939 1! none 

s 3 0940 1! 

3; 5446 0941 1 ! ROUTINE VALUE: 

3; 545 0942 1! 1 if successful 

; 546 0945 1! error code otherwise 

3 5467 0944 1! 

: 548 0945 1 ! SIDE EFFECTS: 

; 549 0946 1! The information display block if filled in with the necessary 

; 550 0947 1! information requested. 

; 551 0948 1! 

3 228 0949 1 !<- 

, 35 0950 1 

; 554 0951 BEGIN 

a. 339 095 

: 556 095 MAP 

g 637 0954 FILE_FAB : REF S$BBLOCK, ! Address of the FAB 

; 228 0484 FILE_NAM : REF $BBLOCK; ! Address of the NAMe block 
; re 095 LITERAL : 

; 561 0958 NUM_ATTR = 20; ! Max number of ACP attributes 
3 66 3444 

, 3 960 LOCAL 

: 564 961 DEVICE_DESC : SBBLOCK COSC$C_S_BLN), ' Device name descriptor 
: 26° 966 FILE DESC : SBBLOCK (DSC$C"S"BLNJ, ' File name descriptor 
: 66 F1B_BESC : SBBLOCK (DSC$C_S'BLN ' FIB descriptor 

; 36 964 at : $SBBLOCK CFIBSC"LENGTH, i FB Storage 

; 568 965 ATTRIBUTES : BLOCKVEC OR CNOM_ATTR, 8, BYTE), ' attribute descrs 
: 292 206 ACP_STATISTICS : LOCK CATRS$S_STATBLK) ! ACP statistics block 
: 570 Al_JNLACE : SBBLOCK CATRSS"FNDACETYP), | § AI journal ACE 

$ 3f 96 BI" JNLACE SBBLOCK CATRSS_FNDACETYP), ' BI journal ACE 

; 8 96 AT” JNLACE SBBLOCK CATRSS FNDACETYP), ' AT journal ACE 

3; $7 970 10STS : VECTOR (4, wORD), ! 1/0 status block 

: He 34) STATUS; ' Local routine exit status 
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ls 76 a? ! If necessary, first assign a channel to the device. 
13 44 975 IF CHSNEQ (NAMSC_DVI, FILE_NAMCNAMST_DVIJ], NAMSC_DVI, DEVICE_NAME, 0) 
3 978 OR .CHANNEL EQL 0 
3 ty 4 THEN 

; ee 379 IF .CHANNEL NEQ 0 THEN SDASSGN (CHAN = .CHANNEL); 

; 58 980 SMOVE (NAMSC_DVI, FILE_NAM NARS DviJ, DEVICE_NAME) ; 
: 584 981 CHSFILL (0, DSESC_§ BLN, DEVICE D 

: 585 9 ; Bevice-bese bersacPoinren s IDEUICE abit) 

; 586 9 DEVICE-DESCCDSCSA-POINTER) = Device 

: 7 P 09 STATUS”-= SASSIGN TDEVNAM = DEVICE_DESC 

3 985 CHAN = CHANNEL); 

; 389 IF NOT .STATUS 

; 590 09 THEN 

; 391 988 4 BEGIN 

: % 989 4 CHSFILL (0, NAMSC_DVI, DEVICE_NAME); 

: 59 990 4 CHANNEL = 

: 59% 0991 4 RETURN . STATUS; 

; $95 099 END; 

; 5% 099 END; 

; 597 994 

3 rh 944 ! Build the ACP attribute List for the needed information. 
; 600 0997 CHSFILL (0, NUM ATIRGB ATTRIBUTES); 

; 601 998 2 ATTRIBUTES (0, ATRS$W_TYPE] = ATRSC -RECATIR: 

; 60¢ 0999 2 ATTRIBUTES (0, ATRSW-SIZE] = ATRES“RECATIR 

; 603 1000 @ ATTRIBUTES (0, ATRSL-ADDR]) = DISPLAY EBLOCKEDIR. R_RECATIR); 
> 606 1001 2 ATTRIBUTES [1. ATRSW-TYPE] = ATRSC_CREDA ATE: 

; 605 1008 ATTRIBUTES [1, ATRS$W-SIZE) = ATRSS~CREDAT 

; 606 100 ATTRIBUTES [1, ATRSL-ADDR) = DISPLAY BLocctoin, Q_CREDATE); 
; 607 1004 2 ATTRIBUTES (2, ATRSW_TYPE] = ATRSC_R ney oA uF 

; 608 1005 @ ATTRIBUTES (2, ATRSWISIZE) = ATRSS- 

; 609 1006 ¢ ATTRIBUTES [¢. ATRSL ADDR) = DISPLAY eOLOCKEDIR. Q_REVDATE); 
; 610 100 ATTRIBUTES (3, ATRSW_TYPE) = ATRSC EN? Ae TE; 

: 611 1008 2 ATTRIBUTES [3. ATRSW-SIZE) = ATRSS-EXPDATE: 

; ge 1009 2 ATTRIBUTES [3. ATRSL-ADDR) = DISPLAY NBLOCKEDIR. Q_EXPDATE); 
: 61 1010 2 ATTRIBUTES (4, ATRSW-TYPE) = ATRSC BKK DA ATE: 

> 614 1011 2 ATTRIBUTES [4. ATRSWISIZE) = ATRSS-BAK 

3 615 101¢ ATTRIBUTES (4. ATRSL-ADDR) = DISPLAY BLOCKEDIR. Q_BAKDATE); 
i 618 101 ATTRIBUTES (5. ATRSW-TYPE) = ATRSC_STATBLK; 

; 61 1014 2 ATTRIBUTES (5. ATRSW"SIZE) = ATRSS-STATBLK 

; 618 1015 @ ATTRIBUTES (5, ATRSL-ADDR) = ACP STATISTICS; 

: 619 1016 ATTRIBUTES 6, ATRSW-TYPE) = ATREC UIC; 

; 620 101 ATTRIBUTES (6, ATRSWISIZE) = ATRSS-UIC;: 

: 621 1018 2 ATTRIBUTES g. ATRSL-ADDR) = DISPLAY BLOCKCDIR_L_FILEOWNER); 
; 6 é 1019 2 ATTRIBUTES [7, ATRSW_TYPE) = ATRSC_F PRO: 

:; 6 1020 2 ATTRIBUTES (7. ATRSW-SIZE) = ATRSS-FPRO: 

> 626 1021 2 ATTRIBUTES (7, ATRSL-ADDR) = DISPLAY BLOCKCOIR_ W_FILEPROT); 
> 625 1 ; ATTRIBUTES (8, ATRSW-TYPE) = ATRSC_UCHAR 

i 626 1 ATTRIBUTES (8, ATRSW-SIZE) = ATRSS-UCHAR 

; 6 1024 ATTRIBUTES » ATRSL-ADDR) = DISPL Ky sLotxcoin _L_FILECHAR); 
; 628 1025 2 ATTRIBUTES [9, ATRSW-TYPE) = ATRSC_ASCDAT 

: 629 1086 ¢ ATTRIBUTES 9, ATRSWISIZE) = 2: 

: 6 1 ATTRIBUTES (9 ATRSL ADDR} = DISPLAY seuockto1R, W_REVISION); 
+ 631 1 ; ATTRIBUTES 1, ATR 9. 1vPe) = ATRSC 

; 632 10 ATTRIBUTES (10, ATRSWTSIZE) = AIRES ~ OURNAL? 
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ps DESC ELSE 0), 


= 
IF .STATUS eg STATU 
F NOT .STATUS 


BDASSGN « (CHAN = . CHANNEL); 
RETURN StAtUs: 
END; 


! Fix up some of the information returned. 
IF DISPLAY BLOCKEDIR_V_508) 


EGIN 
PLAY BLOCK(DIR 


DIS Rat L_HIBLK] = ROT (.ACP_STATISTICSCSBKSL_FILESIZEJ, 16); 
DISPLAY. BLOCKCDIR“L-EFBLK] = .DISPLAY -BLOCKCDOIR_L_HIBLKI; 
ELSE 
BEGIN 
DISPLAY _BLOCKCDIR_L_HIBLK]) = ROT (.DISPLAY_BLOCKC(DIR_L WIBLK) 
If (DISPLAY_BLOCK tp rR, L_EFBLK] = ROT (.DISPLAY Tyree DIR EPBLKS. *16)) EQ. 0 
THEN DISPLAY BLOC ac EFBLK) = .DISPLAY_BLOCKCDIR_L *ATBCK) 
ELSE IF .DISPLAY BLDEKED TR_W FFBYTE) EQL 
THEN DISPLAY SBLOCKEDIR C_EFBLK) = DISPLAY -BLOCKCDIR_L_EFBLK) - 1 


END; 
IF DISPLAY eerily W_RSIZEJ EQL 0 
THEN DISPLAY CpiRe DIR_G Rats e a e SPLAY_BLOCKCDIR_W_MAXREC]; 
DISPLAY_BLOCRC(DIR_W_VERLIMIT -FIBCFIBSW-VERCIMITIF 
! Check for any RMS journaling information in the file's ACL. 


IF .AIl_JNLACECACESB_SIZEJ NEQ 0 
THEN 


BEGIN 
DISPLAY_BLOCKCDIR_B_AI_SIZE) = .Al_JNLACECACESB_SIZE) - 
YTEOFFSET (ACEST_RMSJNLNAM) ; 
CHSMOVE (.DISPLAY_BLOCKCDIR_B_Al attisy Al_JNLACETACEST RMSJNLNAM} 
ani DISPLAY_BLOCKCDIR_T_AI_NAME)); 
IF .81_JNLACECACESB_SIZE) NEQ 0 
ig 
she -BLOCKCDIR_B_BI_SIZE] = .B1_JNLACECACESB SIZE) - 
SBYTEOFFSET (ACEST_RMSJNLNAM); 
CHSMOVE (.DISPLAY_BLOCK(DIR_B_B1_SIZEJ, BI gNLACECACEST RMSJNLNAR] 
a DISPLAY_BLOCKCDIR_1_B1_NAME)); 
IF .AT_JNLACECACESB_SIZE) NEQ 0 
THEN 
BEGIN 
DISPLAY_BLOCKCDIR_B_AT_SIZE] = .AT_JNLACECACESB SIZE) - 
YTEOFFSET (ACEST_RMSJNLNAM 
CHSMOVE (.DISPLAY_BLOCKCDIR_B_AT_SIZEJ, AT gn ACECAcE RT RRS JAL NAR} 
DISPLAY_BLOCKCDIR_T_AT_NAME)); 
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ROUTINE DIRSSHOW_INFO = 


‘es 


FUNCTIONAL DESCRIPTION: 
Display gathered information 


CALLING SEQUENCE: 
DIRSSHOW_INFO () 


INPUT PARAMETERS: 
none 


IMPLICIT INPUTS: 
none 

OUTPUT PARAMETERS: 
none 

IMPLICIT OUTPUTS: 
none 

es VALUE : 


SIDE EFFECTS: 
none 


Length of file prefix 


HEADER_LEN 
FIL Length of the file name 


ENARE_LEN, 
NAME 


! Number of spaces to pad 

LOCAL _DESC : SBBLOCK CDSC$C_S_BLNI, ' Local text descriptor 
' Saved Line position 

! Beginning position of column 
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ee 


EXTERNAL ROUTINE 
DIRSOUTPUT; 


' See if it is necessary and time to do the header & trailer information. 

HEADER_LEN = .DISPLAY_BLOCK(DIR_B_NODE) + 
.DISPLAY“BLOCK(DIR“B-DEV) + 
-DISPLAYBLOCK DIR B"DIRI; 

FILENAME _LEN = .DISPLAY BLOCK DIR“B_FNS) = .HEADER_LEN; 

NAME_LEN7= .DISPLAY_BLOCKCDIR_B_FAS] - .DISPLAY_BLOCKLOIR_B_ VER); 

IF CHSNEG (.PREV_DIR_LEN, PREV_DIR, .HEADER_LEN, DISPLAY_BLOCK(DIR_T_FILENAMZ)) 


BEGIN 
JF LINE _DESCCDSCSW_LENGTH] GTR 0 


BEGIN 


General output reutine 


File name Length minus version | 
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DIRSOUTPUT (0, INE. DESC); 
EOL URN IND 
If “PREY _DIR_LEN B,3. 4 THEN DIRSTOTAL (); 
PREV DIR “LEN = R_LEN; 
CH — T.HEAD DER’ eRe op isriay VaGLOcKCOIR. T_FILENAME], PREV_DIR); 
IF toe FLAGS DIR Yao 
. 4% NOT TQUAL_FLAGS sik. i “BUAL GRAN] 
BEGIN 
WRITE (0, *") 
WRITE (DERS névpinect 0, 
IF NOT .QUAC_FLAGSED TR_VQU 


END; 
! Check for another version of the same file. 
IF .VERSION_COUNT GTR 0 
THEN 


BEGIN 
IF CHSEQL (. prev é 
ee VERSION. MINDER 


ILE_LEN, PREV LE 
EN, DIS SPLAT. “BCOCE oR. T_FILENAME), 0) 
=" .VERSION@1 


mm 


BEGIN 

PREV_FILE_LEN = .NAME_L 
CHSMOVE (TNAME _LEN, Bre Stay BLOCKCDIR_T_FILENAME], PREV_FILE); 
VERSION, INDEX = 0; 


END 
io: VERSION. INDEX GEQ .VERSION_COUNT THEN RETURN 1; 


WA. AAAI PINPIPIPMONINPONININY 2 OO OO OO 


ery SSSR 
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! Update the running totals. 
TOTAL_USED = .TOTAL_USED + .DISPLAY_BLOCKCDIR * a 


WAAL AAAI 


Kj; 
HIBLK); 
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7? TOTAL_ALLOC = .TOTAC_ALLOC ¢ .DISPLAY_BLOCK(D TR 

3 TOTAL-FILES = .TOTAL_FILES + 1; 

9 IF ,QUAL_FLAGSCDIR_V_QUAL_TOTL] OR .QUAL_FLAGSCDIR_V_QUAL_GRAN] THEN RETURN 1; 
+g ' Build the Line using the requested informatation. 

4 IF .COLUMN_INDEX GEQ .COLUMN_COUNT 

5 THEN 
46 BEGIN 

If .LINE DESCCDSCSu_ LENGTH) GTR O THEN DIRSOUTPUT (0, LINE_DESC); 

8 COLUAN, IRDEX = 0; 

20 COLUMN BEGIN = MARK_POSITION = .LINE_DESCCDSC$W_LENGTH); 

3 IF WOT . QUAL FLAGSCDIR_ V_QUAL_HEAD] 

5 THEN AP 1 TO THEADER_LEN, DISPLAY _BLOCKCDIR_T_FILENAME)); 

P1354 2 APPEND ( TAB, AP LLENAME LENT t VECTOR COISPLAY BLOCKTDIR T FILENAME), 

55 HEADER_CEN; ,BYTET)> 

26 dF gt INE. DESCCDSCSW_LENGTH) GEQ .DISPLAY “WIDTH ~ 


Be Oe Oe Oe Be Oe Se Be Se Se Se Oe Se Se Se ae SH Se Se Se HH Se Be Se Se Se Se ee Fe Se Se Se Se Se Fe Se Se Se Ge Ge Se Se Se Se See Se Se ee Se Se SH Se Se Se Sees 


-—_—_—_ - = - _ — ———— 


| 
| 4 

DISPLAY 18-0 1984 23:42:09 VAK=11 Bliss-32 V4.0-74 Page 33 
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3 % 1358 BEGIN 

; 96 1 LIN DESCEDSFSu LENGTH] = .MARK_POSITION; 

>; 964 1360 DIRSOUTPUT (0, CINE_DESC); 

; 965 1361 COLUMN_BEGIN = MARK-POSITION = 0; 

3 968 1 6¢ COLUMN-INDEX = 0; 

; 96 136 IF NOT” .QUAL_FLAGSCDIR_V_QUAL_HEADJ 

; 968 1364 THEN APPEND TO, *!AD',  [THEADER_LEN, DISPLAY BLOCK(DIR_T_FILENAME)); 

; 969 P 1365 APPEND (0, "!AD", FILENAME LEN, VECTOR COISPLAY BLOCKIDIR_T_FILENAME), 

; 970 1 66 -HEADER_CEN; ,BYTEJ); 

3 4a : of END; 

; 97 1369 SPACE_COUNT = .FILENAME_WIDTH = .LINE_DESCCDSCS$W_LENGTH) + 

> 974 1370 »MARK-POSITION; 

; 975 1371 IF .SPACE_COUNT LEQ 0 

; 97 137 THEN 

; 97 137 BEGIN 

; 978 1374 If .COLUMN_COUNT EQL 1 

: 979 1375 THEN 

; 980 1 26 4 BEGIN 

>; (981 1377 4 DIRSOUTPUT (0, LINE DESC); 

; 98 1778 4 COLUMN BEGIN = 0; 

; 98 1379 4 IF .QUAL_FLAGSCDIR_V_QUAL_FID]_ OR .QUAL_FLAGSCDIR_V_QUAL_SIZE] 

; 984 1380 4 OR .QUAL_FLAGS(DIR_V_QUAL_DATE] OR .QUAC_FLAGSCDIR_V_QUAC_OWNE] 

; 985 1381 4 OR .QUAL-FLAGSCDIR_V_QUAL~ PROT 

; 986 1 3 4 THEN APPEND (0, ‘!¥e"', .PILENAME_WIDTH); 

; «987 1383 4 END 

; 988 1384 3 ELSE 

; 989 1385 4 BEGIN 

; 990 1386 4 IF ,QUAL_FLAGSCDIR_V_QUAL_BRIE 

3 991 1387 4 AND NOT [QUAL_FLAGSCBIR_V_QUAL_SIZE 

; 938 1388 4 AND NOT .QUAL_FLAGS(DIR_V_QUAL_DATE 

7 99 1389 4 AND NOT .QUAL"FLAGSCDIR—V_QUAL —OWNE 

> 994 1390 4 AND NOT .QUAL-FLAGS(DIR-V_QUAL “PROT 

; 995 it 4 4 AND NOT .QUAL_FLAGSCDIR_V_QUAL—F 1D) 

; 996 1 9 4 THEN 

; 13935 5 BEGIN 

; 998 1394 § COLUMN_INDEX = .COLUMN_INDEX ¢ 

; 999 1395 6 (( LINE“DESCCOSCSW_LENGTH] = .COLUMN_BEGIN) / 

; 1000 1 96 2 -COLUMN- WIDTH); 

3 1001 139 COLUMN_BEGIN = .COLUMN_BEGIN + 

: 1008 1398 (( LINE-DESCCOSC$W_LENGTH] = .COLUMN_BEGIN) / 

: 100 1399 -COLUAN_WIDTH) * .COLUMN_WIDTH; 

: 1004 1400 END 

3 1005 1401 4 ELSE 

z 1006 1608 2 BEGIN 

3 1007 140 LINE _DESCCDSC$w LENGTH = ,MARK POSITION + .FILENAME_WIDTH; 

> 1008 1404 5 LINE~BUFFERC.LIRE_DESCCOSC$w_LENGTH) - 1) = ‘3° 

; 1009 1405 4 ND; 

: 1010 1406 END; 

3 1011 140 END 

; 1018 1408 2 ELSE APPEND (0, ‘!#* *, .SPACE_COUNT); 

3 101 1409 3 

3 oie hy ! Check to see if an error occurred opening the file. 

; 1016 Fat IF NOT .DISPLAY_BLOCK(DIR_L_STATUS] 

3 101 141 THEN 

; 1018 14614 BEGIN 
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THEN pris ed B pi. ee EDAT) 
ELSE » DISPLAY_BLOCKCDIR_L_CDT0]); 
IF QUAL ~fLAGSLDIA V_DATE_MOD) 

& 
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Oooo 


THEN IF -DISPL 
THEN 
DISPLAY -BLOCKCDIR_L “RDT0}); 


os 


J EQL 0 AND .DISPLAY_BLOCKCDIR_L_EDT4) EQ. 0 


ooo 
co 
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10 
AT) 
DISPLAY_BLOCKCDIR_L_EDTO]); 
10} EQL 0 AND .DISPLAY.BLOCKCDIR.L.8DT4] EQL 0 
DISPLAY _BLOCKCDIR_L_8DT0)); 
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IF -DISPLAY_ 
THEN APPEND 
ELSE APPEND (0, 
MARK E POSITION = .LINE_DESCCDSCSW_ 
LF .QUAL_FLAGSCDIR_V setts OWNE) 

THEN K DIR i. ghiOde? Ea 


IF sPASPLAY x ApOts 
THEN . rot te WIDTH, .DISPLAY_BLOCK(DIR_L_FILEOWNER]) 
ELSE APPEND (o, * gaye ‘ ” OWNER WIDTH, .DISPLAY_BLOCKCDIR_L_F FTL EOWNER]); 


IF QUAL. FLAGSCDIR_V_CUAL_PROT) 
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RPEEND (0 
INCR J FROM 0 10 4 


J LSS 3 THEN APPEND (0, ‘','); 


BEGIN 
p SAPPEND (0, .PROT TABLEL. (DISPLAY _BLOCKCDIR_W_FILEPROTI)<.J*4,4>]); 
END; 
ND (0, ')"); 


IR 
F 
ND; 
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SOOOoooooCoo 


APPE 
ND; 
1F QUAL -FLAGSCDIR_V_QUAL_ACL] AND .ACL_LENGTH GTR 0 


BEG! 
IF LINE REscepsceu LENGTH) GTR O THEN DIRSOUTPUT (0, LINE_DESC); 
api ACL 


COLUMN_ INDEX :COLUN, INDEX  ¢ 
SPACE _COUNT = .C UMN GIDTH - Line _DESCLDSC$W_LENGTH] * .COLUMN_BEGIN; 
. COLUMN count. tIR 
D SCOLUMR INDEX LSS _.COLUMN. COUNT 
THEN’ APPEND (0, 


RETURN 1; 
END; ! End of routine DIRSSHOW_INFO 


ny . SPACE _COUNT); 
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13 BEQL 3 a : 
9000v CF F CALLS @ : 
cA ) 28: MOVL nekoERY tN, “prey DIR_LEN ; 1305 
1¢ =A $ MOVL OrSPLAr 8.6 4 3 1306 
0458 CA 19 A movCS) oH ADER fen. ast ), PREV_DIR ; 
7 gi AA 7 BBC a3, - 3 : 1307 
2 1 AA 0 r¢ BBS r rere “Fiagset. $ + 1308 
0000° cr oF PUSHAB P-AgG + 1311 
00006 CF 02 FB ; CALLS #2, DIRSOUTPUT : 
45 CA OF PUSHAB PREV_DIR + 1312 
5 CA po PUSHL PREV“DIR_LEN : 
00 ' C€F 9F 00094 PUSHAB p-ABT : 
000000006 §F Dd 00098 PUSHL  #DIR$_NEWDIRECT : 
0000G CF % Ff * CALLS DIRSOUTPUT 3 
AA 9 A TSTB QUAL _FLAGS#2 + 1313 
0B 1 ae BLSS ; 
0000' CF OF PUSHAB ARK : 
D4 AC CLAL Z 
00006 cf 02 F A CALLS a PDIRSOUTPUT F 
7 0660 A p 008 3$: nov yERS ION_COUNT, R7 + 1319 
54 1¢—OAA 00 BA MOVL DISPLAY_BLOCK, : 1323 
a 00 ossc CA 065¢ CA D 0008 CMPCS pREV FICE LEN, PREV FILE, #0, NAME_LEN, = : 
06 12 0069 BNEQ 4 : 
0664 CA 06 000CB INCL VERSION. INDEX > 1326 
10 11 OOOCF BRB : 
065C CA ° 00 0001 4$ MOVL. NAME LEN. PREV_FILE_L : 1327 
OSSC CA 19 AG 0006 MOVC3 NAME 25(RE) PREV. FILE : 1328 
664 CA D4 00000 CLRL VERSTON A ind > 1309) 
57 666 CA 1 O00! SS: CMPL yision INDEX, R7 + 1331, 
3 19 E6 BLSS ; 
O3AF 31 OO0E 68: BRW : | 
50 10 AA OD EB 7$: MOVL Irony BLOCK, RO : 1336 
043¢ CA 131 c0 C EF ADDL Bi TOTAL_USED : 
440 (CA 120 ©¢O ¢ F6 ADDL 301(R ) LTQTAL “ALLOC :1 37 
646 CA Bg FD INCL : 1338 
02. AA 1 TST OAL of Aus, : 1340 
Eg 19 BLSS : | 
DD 01 AA EO BBS , QUAL_FLAGS+1, 6$ ; | 
08 AA 0c AA p CPL i CuMN_IADEX, COLUMN_COUNT + 1344 
36 OA 83 1 TST b INE _DESC + 1347 
OA 1 BEQL 3 
36 AA 9F 0011 PUSHAB LINE_DESC : 
7E D4 1A CLAL = (SPJ 3 
00006 CF 02 FB 1¢ CALLS #2, DIRSOUTPUT : 
9¢ rv) ps4 gs: cLAL COLUMN x : 134 
7 4 AA 4 98: MOVZ2WL LINE "DESC MARK_POSITION : 135 
8 7 0 8 MOVL MARK “POSITION FOL URN BEGIN ; 
10 01 «AA ; E BBS QUAL Funegs ; 1333 
7E 1C C ADDL3 ; é DISPLAY Seok.” -(SP) : 135 
56 Bo PUSHL WEABER.L ; 
0000" CF 9F PUSHAB . ABM : 
— 04 CLRL. 0 =< SP) : 
| 68 04 FB 00130 CALLS #4, DIRSAPPEND ; 
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Mb O00 12-8 08-1 9b 43:98:93 DISKSVMSMASTER:CDIR.SRCIDISPLAY.B32:1." (6) 
50 14 I¢ AA €1 00140 108: AdDL3 DISPLAY BLOCK, HEADER_LEN, RO : 1355 
1 Ag F 0014 PUSH (RO) : 
5 po 14 PUSHL FILENAME_LEN : 
ee, 7 Be OO1ce CLR SY StSPD : 
FB 001 b CALLS #4, DIRSAPPEND : 
0814 CA 34 AA $8 FD i CMe v #0, ote. LINE_DESC, DISPLAY_WIDTH + 1356 
34 OA + BO 00180 MOVW MARK_POSITION, LINE_DESC : 1359 
36 AA OOF 161 PUSHAB LINE -DESC : 
7E D4 001 CLAL =(SPJ 3 
et OS Fe abies EAS Aaa SEVEN ‘wy 
OC AA D4 190 CLRL COLUMN_INDEX : 136¢ 
10 01 AA 93 EO 129 BBS i QUAL_FLAGS*1, 11$ : 1363 
7E 1C C1 0017 ADDLS #25, DISPLAY_BLOCK, -(SP) 21 
56 DD OO17A PUSHL HEADER_LEN : 
0000" ee Balas URINE FiAgs : 
8 04 FB 001 CALLS #4, DIRSAPPEND : 
50 6 1¢ AA ci 185 11$: ADDL DISPLAY BLOCK, HEADER_LEN, RO + 1366 
1 Ag F OO18A PUSHAB 25(RO) : 
5 pp 180 PUSHL FILENAME_LEN : 
0000" SE be 90198 CLR. LtSP) 
68 04 FB 198 CALLS #4, DIRSAPPEND ; 
$0 81B sth 8 BE Dose SOULS’ RON RIRENAME wIDTH, RO en 
56 0 3? 4] 1K3 ADDL MARK_POSITION, RO, SPACE_COUNT ; 70 
01 08 AA 01 148 CMPL  COLUMN_COUNT, #1 : 1374. 
2D 12 OO1AC BNEO 4 : 
34 AA OF Ae PUSHAB LINE_DESC : 1377 
7E D4 0018 CLRL = = (SP : 
sete oy! arate cht’ COCUMNTBESIN’. 1378 
Oe 02 MA oY 08 £0 oolee ee eee sie’ 138 g 1579 
OA 6A 03 £ 1c BBS i QUAL “FLAGS, 13$ : 1380 
05 01 f 1¢ BBS #5. QUAL“FLAGS*1, 13% : 
01 AA rec Is18 ‘ AL _FLAGS#1 ; 1381 
0818 CA DD 00101 13$:  PUSHL FILENAME_WIDTH : 1382 
00" ft Ph bo1p9 BRA” 9S 
F. 6A 1 €1 001DB 148: BBC #1, QUAL_FLAGS, 15$ ; 1386 
| A 02. AA EO 001DF § #3, QUAL“FLAGS*2, 15% : 1387 
| 6 th EO OO1E4 BBS #3; QUAL“FLAGS, 15$ > 1388 
| 1 01 «AA f 168 BBS #5. QUAL"FLAGS*1, 15% : 1389 
| 1 8 %8 dotF a porn 
| Py 
1 1 AA §° i BLBS QUAL_FLAGS+1, 15% ; 133! 
4 AA 1F MOVZWL LINE“DESC, RO : 1395 
58 C2 OOIFA SUBL COLUAN BEGIN, RO : 
Py ace iB 
0 10 AA C4 385 MULL2 COLUMN WIDTH, R : 1899 


| 0c AA 50 
| 5 
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12-8 rs 71382 3: 18; 3 DISKSVMSMASTER: (DIR. SRCSDISPLAY. 832;1 (6) 
COLUMN. BEGIN : 
58 0 8 ADDL2 RO, 3 1386 
C RB 1 i 13 
34 AA 57 0818 ie it i 15$: ADDYS FILENAME WIDTH, MARK_POSITION, LINE_DESC 1403 
3B AAG ¢ ar i 1 MOVE #2; LINE_BUFFER-1(ROJ 5 oan 
1 F BRB 18 ; : 137 
D 16$:  PUSHL. SPACE_COUN ; 
0000" CF 9F ; PUSHAB P.ABW 
5 D4 17$: CLARE og Reese 
af EB ee SDISPLAY BL BL tk ; 1612 
ie ” 60 ge see abveS 3, ($P)* tock be” Poca DESC 3 141 
a ; + 141 
. INE_DESC, #1024, LOCAL_DESC 
| - _— ic AA oH D oat LINE “BUFFER 8 1e19 
7 OM BF RBsee vith LINES} LOCAL_DESC +4 F 
me 4 1 $5 th nove 1, =(§P) + 1421 
. 8 RE oF 4D PUSHAB Lot EAL DESC ; 
be AE OF 30 PUSHAB DES 
1¢ A 0D a PUSHL api sp stay 1 Bt 0 ; = 
5 F 
a A 4 SG dO em 
a 34 AA MPL 
net 34 AA 7 80 4 Rov MARK POSITION, LINE_DESC ; 1426 
34 aA iF $t PUSHAB LINE_DESC 
iS Pe re FATS nD 5) nsouTPUT gee 
aanee ‘ of 3¢ 78 19%:  MOVZWL tOtat. =DESC: f R1 be ; 
) gt aad § eo orks ur *BUrFERCAam POSITION], RO : 1430 
3 AA 3b 4 RR a hove INE "Dest, (RO), LINE_BUFFER ; 1431 
dt oe ° 4 AA SF 39 208: PUSHAB CINE 
7E D4 ; 
CALLS a2 DIRSOUTPUT i 
ne 0c +4 be $c CLRL OL UMN I NDEX 163 
O18 31 F a ; 
RM BSR 2 be Bats, 28 a 
39 0128 0 AA MOV ZWL 
6 AF BNEQ er 
0125 § 81 TST (RO) ; 
6 ; BS BNEQ ad 
0127 B TSTW (RO) ; 
Bp ROVoUL (RO), =(SP) > 1449 
re 8 ; f ; ce ate MOV2WL 293(RO). =(SP) ; 
. D 002C SHL 
0000° ti BF (9 PUSHAB P.ABY 
0 ee pete na 
: Ps 
D4 238:  PUSHL aDIRS NOBRF ILEID 
68 serene ; pe DA CALLS , DIRSAPPEND 
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VAX-11 Bliss-32 V4.0-7 
DISKSVMSMASTER:CDIR.SR 


#3, QUAL_FLAGS+2, 28$ 
PLAY BLOCK, RO 


WIDTH, 
yar SAGE*E. 25$ 


R 
305 (RO) 
R1 


-(SP) 

#6, DIRSAPPEND 

8 SyAt FLAGS #2, 26$ 
305 (RO) 


01(RO) 
R1 


-(SP) 
#4, DIRSAPPEND 
$35 QUAL_FLAGS, 29% 


#4, QUAL_FLAGS, 31$ 
PLAY_BLOCK, RO 
(RO) 

0$ 

72(RO) 


#DIRS_NOBRCREDAT 
#1, DIRSAPPEND 


68(RO) 

P.ACE 

-(SP) 

#3, DIRSAPPEND 

#6, QUAL_FLAGS, 33$ 
PLAY BLOCK, RO 
(RO) 

0(RO) 

$ 


#DIRS_NOBRREVDAT 
#1, DIRSAPPEND 


6(RO) 

-ACG 
-(SP) 
#3, DIRSAPPEND 
UAL_FLAGS, 35$ 
AY_BLOCK, RO 
0) 
$8(R0) 


#D IRS _NOBREXPDAT 
H DIRSAPPEND 


1464 


1480 


a ee a a ts we “a a a a 


—--—_—_—_—_-_ _ --- -- 


| 


Dra 


2D 


ow 
we 


D2 


01 


68 


000000006 
68 


RNUS & 


NS && 


>® 


g 5 
15-Se 
14-Se 
9188 CO OF OO39F 34$: 
000° GF Ge AS 
ob fe Ube 
A 9 AC 35$ 
8 1 ar 
if AA D B 
018 CO DS 00384 
11=«7 0388 
018C 0 05 OO3BA 
B 12 00 BF 
F DD 8 ¢ 
OD 19 008¢8 
0188 CO 9F O003CB 36S: 
0000' CF 44 8 cf 
68 Pe oo%0s 
OM BE 37s 
1¢ AA 00 poet 
1C =A 0 O3E5 
0119 be 33 Sosee 
014—E CO ODD OO3SEF 
081C CA OD 8 FS 
0000" GE Th doses 
014E CO DD OOSFD 38%: 
081C CA OD Spee 
0000° CF 9F 00405 
ak 98 398 
01 AA 68 ih 40$: 
42 18 00411 
0000" CF 9F att 
gs Pa B8eis 
95 D4 0041C 
1¢ AA 00 0941 41$: 
0152 ¢cO 33 04 $ 
2¢ 78 004 
1 EF 004 
O000'CF40 DD z 
65 PB 00c 
BF OF oocsA 
09 18 004 
0000° CF OF 0045F 
be iets 
FR 0448 42%: 
0000° cr oF 4 
65 PB oe 
6A £8 455 438: 
082 CA 05 004 


9 
9 


4 42:09 VAX=11 Bliss-32 v4. 
Hn 93:46:08 DISKSVMSMASTER: (DIR 
PUSHAB 384(RO) 
rane Et 
CALLS a DIRSAPPEND 
ist QUAL_FLAGS 
MOVL i PLAY BLOCK, RO 
ca 
a a 
PUSHL #DIR$_NOBRBAKDAT 
CALLS al DIRSAPPEND 
PUSHAB 392(R0) 
CLAD ASP) 
CALLS #3, DIRSAPPEND 
MOVZ2WL LINE DESC, MARK_POSITION 
BBC #5, GUAL_FLAGS+T, 40$ 
MOVL  DISPLAY_BLOCK, RO 
MOVL § DISPLAY“BLOCK, R1 
ee gn 
PUSHL ¥ cro) 
PUSHL OWNER_WIDTH 
ana? S59" 
PUSHL 338 cro) 
PUSHL OWNER_WIDTH 
CLRL. CiSP) 
CALLS #4, DIRSAPPEND 
TSTB © QUAL_FLAGS+1 
GEQ 6s 43 
CLRU Lisp) 
CALLS #2, DIRSAPPEND 
MOVL DISPLAY BLOCK, RO 
Meg acyl Me 
EXT2v. R1. #4, (R3), RO 
PUSHL PROT TABLECRO) 
CALLS #2, DIRSAPPEND 
(MPL Ss, 
GEQ ss 4S 
pane Fits 
CALLS a. DIRSAPPEND 
AOBLEQ #3. J, 41 
ae Ach 
CALLS #2 DIRSAPPEND 
BLBC QUAL_FLAGS, 45$ 
TSTL ACL_CENGTH 


ity | Fa 
«SRCIDISPLAY.B32;1 


42 
(6) 


1481 


1482 
1483 


1502 
1498 
1504 


1507 


Rae pe, , 7” Fi 


5 
DISPLAY 1b-s2 $1984 23:42: VAX-11 Bliss-32 V 40-7 43 Dd] 
v “600 122 80b= 1382 93:46:93 DISKSVMSMASTER: asi a’ sre DISPLAY.832; 929 * 6) vo 
14°=#«1 se BLEQ 45$ : 
34 «AA 8 4 TSTw LINE_DESC : 1510 
OA 46 BEQL 448 : 
346 AA OF 46 PUSHAB Lis DESC é 
7E 04 466 CLRL Py 3 
80006 CF 6 FB 004 CALLS ag. DIRSOUTPUT : 
O00v CF FB 00460 44$: CALLS » DIRSSHOW_ACL : 1511 
of AA ge 472 45%: INCL fot LUAN gree ; 1514 
50 4 AA § 47 MOVZWL LINE ADE RO 3; 1515 
50 10 AA 28 C 47 SUBL Coron WIDTH, RO 3 
56 50 C1 0047 ADDL COLUMN_B BEGIN. Rd. SPACE_COUNT : 
01 08 AA 01 004 CMPL COLUMN. COUN : 1516 
12 15 004 BLEQ 46 ; 
08 AA OC AA ODT 006 CMPL COLUMN_INDEX, COLUMN_COUNT : 1517 
98 18 004 BGEQ : 
6 po 0048F PUSHL SPACE_COUNT : 1518 
0000° CF F Bpeee PUSHAB P.ACW ; 
D4 00495 CLRL -(SP) ; 
68 03 FB set CALLS #3, DIRSAPPEND 3 
50 01 DO 0049A 46% MOVL #i, RO ; 1520 
04 00490 RET : 1522 


; Routine Size: 1182 bytes, Routine Base: S$CODES + 0746 
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1982 $3°98:93 SEKSUMEMASTER CBIR Sac SDISPLAY.B32:1 . (7) 
ROUTINE DIRSSHOW_FULL = 

'ee 


' FUNCTIONAL DESCRIPTION: 
Display all of the information 


i CALLING SEQUENCE: 
DIRSSHOW_FULL () 


i INPUT PARAMETERS: 
none 


‘ 

! 

' 

! 

' 

! 

' 

' 

: 

' IMPLICIT INPUTS: 
. none 

' OUTPUT PARAMETERS: 
none 

' IMPLICIT OUTPUTS: 
none 

} st | VALUE : 

! 

' 

' 

' 

' 


i SIDE EFFECTS: 
none 


BEGIN 

OWN 
JOURNAL _FLAG; ! Disable journaling 

— HEADER_LEN ' Length of fil fi 

' Len ° e prefix 

FILENAME _LEN, ‘ Length of the file name | 
NAME LEN, ' Filename Length minus version 
SPACE_COUNT, ! Number of spaces to pad 


LOCAL “DESC : SBBLOCK CDSCSC_S_BLNI, Local text descriptor 


MARK _POSITION; Saved Line position 
EXTERNAL ROUTINE 
DIRSOUTPUT; ! General output routine 


! See if it is necessary and time to do the header & trailer information. 
HEADER_LEN = .DISPLAY BLOCKED R 8 ws a5 


-DISPLAY-BLOCK(DIR~B-DE 
R-B-DIRI; 
DIR“B_FNS) = .HEADER LEN; 
_B_FAS] - .DISPLAY_BLOCK(O1R_B_VERI; 


— (.PREV_DIR_LEN, PREV_DIR, .HEADER_LEN, DISPLAY_BLOCKCDIR_T_F ILENAME )) 


BEGIN 
IF .LINE_DESCCDSCS$W_LENGTH) GTR 0 


wv 
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+ ss tn 


SRR ERIS SS LE SEALS 
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DONO AFI UMODSD UF AR GOSS ue Re eo oe 
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MORIN 
PREARXPX®_EX AAA AAA APA PPAPP DP PDA AAPA SSASITSSISI SIS 


SO et ed et ot OOOO 
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aa) 
DONO VEw— 
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a ee ee ee ee ee eee ee ee ee ee ee ee ee eee ee ee ee ee 
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12-3 08=19ke 93:48:93 STEKSUMEMASTERSCDIAc Sec SDISPLAY.B32:1 . (7) 
THEN 
BEGIN 
DIR$OU wi (0. INE_DESC); 
ve 
PREV DIR IR, LEN NEO, 0 THEN DIRSTOTAL (); 
CHSMOVE tt HEAD R wie BISPLAY V sGLOCKCOIR, T_FILENAME], PREV_DIR); 
IF .QUAL_FLAGSLDIR 


AND NOT > TQUAL_ POTRYOUAL Vv “BUAL GRAN] 


BEGIN 
WRITE (0, °"); 
WRITE (DIRS_NEWDIRECT, 0, .PREV_DIR_LEN, PREV_DIR); 
END; , 
! Check for another version of the same file. 


IF .VERSION_COUNT GTR 0 
THEN 


BEGIN 

IF CHSEQL (.PREV_FIL 

NAME etEN 
= 


E 
THEN VERSION_INDEX = 
ELSE 


_LEN LE 
“te oaYe “BCOCK BR T_FILENAME], 0) 
VERSION” 1 


BEGIN 
PREV_FILE LEN, = ,NAME_L 

CHSMOVE ([NAM _LEN, Brepuay BLOCKCDIR_T_FILENAME], PREV_FILE); 
VERSION. INDEX = = 0; 


END 
IF VERSION. INDEX GEQ .VERSION_COUNT THEN RETURN 1; 


! Update the running totals. 


TOTAL_USED = .TOTAL_USED + sDISPLAY Me oEKtOTR FFs ae 
TOTAL_ALLOC = .TOTAC_ALLOC * .DISPLAY_BLOCKCOIR-L_HIBLKI; 
TOTAL “FILES = TOTAL “FILES : 1; 


IF .QUAL_FLAGSCDIR_V_QUAL_TOTL] OR .QUAL_FLAGSCDIR_V_QUAL_GRAN] THEN RETURN 1; 
WRITE (0, °"); 


CHSFILL (0, DSCSC $ Bln. LANE. DESC); 
LINE_DESCCOSCS$W_LE 
LINE ~DESCCDSCSA~ Se Ate = LINE_BUFFER; 


IF NOT QUAL FLAGSEDIR_V QUAL_HEAD) 
THEN APPEND TO -READER_LEN, DISPLAY_BLOCKCDIR 
APPEND ( adh} AP ICEWAME LER, VECTOR COISPLAY BLOCR 


HEA EN 
SPACE COUNT = = MC gal"; DESCLDSCSu_ LENGTH] / 8) 7 1)'e 
Fes : SPAC ~CQUNT THEN ce “COUNT = 20; 


ot 
RARE "POSITION : vid Pest DSCSu_ * LENGTH); 
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bat 18-s att fi d 3: 18; 9 Dts SKSVMS Msn ASfeasct tae she DISPLAY.B32;1 pen 3 


1698 O36 ELSE IF .DISPLAY BLOCKCDIR_V_ATJNL] 
E 


: 1699 94 THEN WRITE TDIR SNOATING) : 

3; 1700 95 ND; 

: 1701 09 

: 1708 09 APPEND (oiRs FILEPROT); 

: 170 09 INCR om 0 TO 3 

: 1704 09 dO 

: 1705 100 BEGIN 

‘ 1706 101 SELECTONE .J OF 

: 170 10¢ SET 

: 1708 10 APPEND (DIRS_ SYSPROT) ; 

> 1709 194 APPEND (DIRS$-OWNPROT): 

: 1710 105 HF APPE END (DIR$S-GRPPROT): 

: Wi) 106 APPEND (DIRS-WORPROT); 

: 1718 108 iE i APPEND (0, .PROT_TABLEC.(DISPLAY_BLOCKCDIR_W_FILEPROT])<.J#4,4>]); 
: 1714 109 END; 

; 1713 110 DIRSOUTPUT (0, LINE_DESC); 

: 1717 Wg IF ACL LENGTH GTR 9 

: 1718 11 THEN DIRSSHOW ACL () 

; 1719 114 ELSE WRITE COIR _NOFILEACL?; 

: 1720 115 

: 1721 116 RETURN 1; 

: 179e 117 
3 172 118 1 END; ! End of routine DIRSSHOW_FULL 


-PSECT S$PLITS,NOWRT ,NOEXE,2 


00000000 OO1FC P.ACY: .LONG 0 3 
00000000' 8 00 -ADDRESS P.ACZ - 
00 0204 P.ADB: .BYTE $ 
00205 -BLKB 
00000001 00208 P.ADA: .LONG 1 J 
00000000" 00 of -ADDRESS P.ADB - 
0210 P.ADD -BLKB 3 
00000000 00210 P.ADC . LONG : 
44 41 1 0218 P.ADF: .ASCII \!AD\ 3 
0 6 if P ADE PN 3 : 
20900006" $526 ADDRESS P. ADF 
44 41 1 0224 P.ADH: ASCII \HAD\ : 
0000 P.ADG -BLKB ! 
ts § 3: 43) he p.ADH j 
20 2A 1 P.ADJ ASCII] \!@e \ i 
6° . P.ADI “LONG & : 
0 4 eee P.ADJ 3 
0 C P.ADL BYTE 3 
-BLKB 
4444164 1 40 P.ADK: .LONG : 
00000 $" 44 ADDRESS P. ADL 3 
48 P.ADN: .BYTE 0 3 
| 


—— — = ——————— — — 


s. 
1$. sep =1984 23:4 VAX=11 Bliss=32_V 5 
14-Sep e=19 3B 3; +8 3 DISKSVMSMASTER: tb 1a she DISPLAY .832; oy ve 33 
0000001 8 2, P.ADM PRE ; 

60000090 6 § .ADDRESS P.ADN : 
4 P.ADP: BYTE ; 

H -BLKB 
44454 P.ADO: .LONG 1 : 
00 aay fi f ADDRESS P.ADP : 
0 0260 P.ADR BYTE : 

61 -BLKB 
4464 1 64 P.ADQ: .LONG 1 : 
00 o° 68 -ADDRESS P.ADR : 
8 6C P.ADT BYTE : 

$0 -BLKB 
00000001 00270 P.ADS: .LONG 1 : 
00000000° 00274 -ADDRESS P.ADT : 
00 00 28 P.ADV: .BYTE : 

027 -BLKB 
00000001 9 ic P.ADU: .LONG 1 : 
00000000' “ADDRESS P.ADV : 
00 90284 P.ADX BYTE 3 

0285 -BLKB 
00000001 00288 P.ADW LONG 1 : 
00000000" 9028C “ADDRESS P.ADX : 
00 00290 P.ADZ: .BYTE : 

0291 BLKB 
00000001 00294 P.ADY: .LONG 1 : 
00000000' 00298 -ADDRESS P.ADZ : 
00 0029C P.AEB: .BYTE 0 : 

0290 -BLKB 3 

00000001 O002A0 P.AEA: .LONG 1 : 
00000000' 002A4 - ADDRESS P.AEB : 
00 OO2A8 P.AED: .BYTE : 

02a9 -BLKB 
00000001 OO2AC P.AEC: .LONG 1 ; 
00000000° 90 BO “ADDRESS P.AED : 
00 00284 P.AEF: .BYTE 9 : 

00285 *BLKB 
00000001 00288 P.AEE: .LONG 1 : 
00000000" 00 BC -ADDRESS P.AEF : 
00 002CO P.AEH: .BYTE : : 

02C1 -BLKB 
00000001 002C4 P.AEG: ONG 1 : 
00000000" 002C8 “ADDRESS P.AEH : 
00 CC P.AEJ: .BYTE 9 : 

Cb -BLKB 
00000001 P.AEI: .LONG 1 3 
00000000" 00204 “ADDRESS P.AEJ 3 
00 00 08 P.AEL: .BYTE : 

020 -BLKB 
9 900001 1 of P.AEK: ONG 1 3 
000 E “ADDRESS P.AEL : 
E4 P.AEN: .BYTE : 

#} -BLKB 
000008 1 £8 P.AEM: .LONG 1 : 
0000 0° eC “ADDRESS P.AEN : 
FO P.AEP: .BYTE ; 

O2F1 .BLKB 
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15- 
14- 
SSOOHE). gags 
¢ 45 
Senne 
1 8 
sean 19 
aM 
op90000%, S081 
00 20594 
00000001 0328 
00000000" 0032C 
20 2c 0 3 
49444: 8 
0099008 * 00 
2 2i 8 : 
00000005 09 
00000000" 00 
00 4 
00000001 3 
00000000' 00 
20 2c 4 : 
44 444 88 
0099 000° 00360 
21 5 
00000005 : 
00000000' 00370 
00 8 
44 64 0 
00 oon" 037C 
2 Cc 00 
44444 
sed? ae: 
sane 
30 1 - 
00000005 
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-AEO: 
P.AER: 
P.AEQ: 
P.AET: 
P.AES: 
P.AEV: 
P.AEU: 
P.AEX: 
P.AEW: 
P.AEZ: 
P.AEY: 
P.AFB: 
P.AFA: 
P.AFD: 
P.AFC: 


P.AFQ: 


“ADDRESS. P.AEP 
“ASCII. \, \ 
-BLKB 

LONG 

“ADDRESS P AER 

\!20« 

mC y 

LONG 

“ADDRESS P.AET 
“BYTE 


“BLKB 


LONG 1 
ADDRESS P.AEV 
-BYTE 

-BLKB 

-LONG 1 
-ADDRESS P.AEX 
ASCII \. \ 
-BLKB § 

LONG 

»ADDRESS P,AEZ 
ASCII \!20* \ 
-BLKB : 
«LONG 

-ADDRESS P.AFB 
-BYTE 9 
wo ; 


LONG 
ADDRESS P.AFD 
«ASC \ 


SS ds 
LKB a 
ONG 
ADDRESS P,AFF 
SCI1 \!20* \ 
BLKB ; 


“LONG 

- ADDRESS PL AFH 

“BYTE 

-BLKB 

“ADDRESS PLAFJ 

OT hg 

*BLKB 

“LONG 

ADDRESS PL AFL 
\!20" \ 


8 ONG 
“ADDRESS P.AFN 
“ASCII \, \ 


“LONG 
“ADDRESS P.AFP 
“ASCIT \!20" \ 


; LONG 


18-58 -Sep-1984 


26 VAX=11 s-32 V 7 
14- ~Sep-1984 t $3: 18; 3 DISKSV nen TER: 0b Tae OCR SDISPLAY. B32; . ve 3! 
00000000' 0038 “ADDRESS P.AFR ; 
$8 9° BB P.AFT: .ASCII \, \ : 
BA “BLKB a 
88 98 ef P.AFS: .LONG 3 
* 003c “ADDRESS P.AFT : 
30 C4 PLAFV: ASCII \!20" \ ; 
C9 “BLKB 
990000 5 ce P.AFU: =LONG : 
099 0° 0030 “ADDRESS P.AFV : 
C D4 P.AFX: .ASCII \, \ : 
D6 -BLKB 
00 00 3 D8 P.AFW: .LONG : 
* 0030 “ADDRESS P.AFX : 
30 1 f P.AFZ: ht i \!20* \ : 
00000005 00368 P.AFY: :LONG ; 
00990 0° O03€ “ADDRESS P.AFZ ; 
C 003FO P.AGB: <ASCII \, * : 
O3F “BLKB 
00000002 003F4 P.AGA: <LONG : 
00990090" O38 “ADDRESS P.AGB : 
30 1 OO3FC P.AGD: <ASCII \!20" \ : 
00401 “BLKB 
00000005 00404 P.AGC: <LONG F 
00000000° 90408 “ADDRESS P.AGD : 
20 2C 0040C P.AGF: ‘ASCII \, \ ; 
OO40E LKB 
00000002 00410 P.AGE: <LONG : 
00990000" 00414 [ADDRESS P.AGF ; 
30 32 21 00418 P.AGH: ASCII \!20* \ ; 
00410 -BLKB x 
00000005 00420 P.AGG ONG 5 F 
00990090" 0424 “ADDRESS P. AGH ; 
20 2C 00408 P.AGJ: <ASCII : 
O42A -BLKB 
90000002 042C P.AGI: .LONG ; 
0099009 * 00430 “ADDRESS P.AGJ ; 
30 21 00434 P.AGL: <ASCII \!20" \ : 
0439 “BLKB 
00000005 0043C P.AGK: <LONG : 
00900000" 0440 “ADDRESS P.AGL : 
20 2C 00444 P.AGN: ASCII \, \ ; 
44 -BLKB 
00 00 3 448 P.AGM F 
* 004 “ADDRESS P AGN : 
30 1 43 P.AGP -ASCI \!20" \ ; 
90000005 38 P.AGO: <L ; 
0990090" 4 ODRESS P.AGP ; 
C 00460 P.AGR: ‘ASCII \. \ : 
46 -BLKB 
900 9 P.AGQ: <LON ; 
9 * 004 “ADDRESS P,AGR ; 
30 4 C P.AGT: <ASCII \!20® \ : 
000005 rh S iRe 
§b09n000" 00478 “ADDRESS P.AGT 


20 2c 


oOo ooo oc0o0Oo Oo0O0O NOOO WOO WOO NO 
oor, oo ocoov —or Omov —ofr RSA 


DOOOOOOOOOCGOOCOOVOOOOOOOOOOCOGOOOOOOOOOOO 
OOOOCOCOOOOOCOOooO 
Sal ek ek nk et ee eh te Pere 
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Ses Ins Ine ie a BAT 


VOAONFOm 


3 §O 
BNL OOCDODLOV*! 


P.AGY: 
P.AHB: 
P.AHA: 
P.AHD: 
P.AHC: 
P. AHF: 
P.AHE: 
P.AHH: 
P.AHG: 
P.AHJ: 
P.AHI: 
P.AHL: 
P.AHK: 
P. AHN: 
P.AHM: 
P. AHP: 
P.AHO: 
P.AHR: 
P.AHQ: 
P.AHT: 
PAHS: 
P.AHV: 
P.AHU: 
P.AHX: 


§ 
eASCII \, \ 
8S 


LONG 
“ADDRESS P.AGV 
“ASCII \!20® \ 
“BLKB 

LONG 

“ADDRESS P.AGX 
“ASCII. \, \ 


«LONG 
»ADDRESS P.AHB 
eASCII \, \ 


- LONG 

-ADDRESS P.AHD 
eASCII = \!20* \ 
-BLKB 

«LONG 

«ADDRESS P.AHF 
-BYTE 

-BLKB 

«LONG 1 
-ADDRESS P.AHH 
-BYTE 

-BLKB 

-LONG 1 
-ADDRESS P.AHJ 
-BYTE 

-BLKB 

-LONG 1 
»ADDRESS P.AHL 
-BYTE 

-BLKB 

LONG 1 
-ADDRESS P.AHN 
eASCIT \, \ 
-BLKB 

- LONG 

-ADDRESS P.AHP 
eASCII \AI,‘ 
-BLKB 1 
-LONG $3 
-ADDRESS P.AHR 
»ASCII \BI,\ 
-BLKB 1 
-LONG 3 
»ADDRESS P.AHT 
eASCIIT = \AT,\ 
-BLKB 


-LONG 
-ADDRESS P.AHV 
-ASCIIT = \RU,\ 


0-74 6 8 
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8 


i P.AHW PN 
Madatedst “ADDRESS, P.AHX 
2c 55 S52 SF 59 4C GE 4F C P.AHZ: .ASCII \ONLY_RU,\ : 
800 0090 , Siene ty RESP. ANZ 
2c 55 52 SF 52 45 S56 4 i P.AIB: “ASCII NEVER_RU, \ : 
4445444 P.AIA: .LONG : 
009" 5 f -ADDRESS P.AIB : 
0 0560 P.AID: .BYTE : 
36 -BLKB 
90900001 P.AIC: <:LONG 1 ; 
00000000' 568 -ADDRESS P.AID 3 
00 OOS6C P.AIF: .BYTE : 
3288 -BLKB 
01 0570 P.AIE: .LONG 1 ; 
00" 00574 “ADDRESS P.AIF : 
00 B2f8 P.AIH: .BYTE : 
057 -BLKB 
00000001 0057C P.AIG: .LONG 1 : 
00000000" 00580 -ADDRESS P.AIH : 


-PSECT SOWNS,NOEXE,2 


00040 JOURNAL_FLAG: 
-BLKB 4 


.PSECT $CODE$.NOWRT,2 
OFFC 00000 DIRSSHOW. FULL: 


“WORD Save R2,R3,R4,R5,R6,R7.R8,RI,R10,R11 : 1523 
58 0000v CF 9€ 0000 MOVAB DIRSAPPEND. R11 ; 
5A 00000000" EF 9E 0000 MOV LINE DES a “Ri ; 
3E 8 C2 O000E SUBL2 #8, SP : 
5 £8 AA D 001) MOVL SPLAY_BLOCK, RO : 1570 
51 011 C0 9a 00015 MOVZBL 281(RO)> RI : 1571 
52 O11A : 9A OOO1A mOVZBL 2(RO); R2 F 
51 é 0 0001F ADDL2 Re, RI ; | 
56 0118 ¢ A é MOVZBL 283(RO), HEADER_LEN : 172 
cf 1 CO ADDL2 1, HEADER_LEN ; 
9 18 AO 9A A nOVZEL 24¢R0), FICENAME_LEN + 1573 
9 56 C2 E SUBL HEADER LEN. F ILERAME _LEN : 
7 18 AO 9A 00031 MOVZBL g4(R > NAME_LEN : 1574 
1 O11C ¢ 9A 5 MOVZBL 284(ROS, R1 : 
57 1 ¢2 A SUBL2 1, NAME_LEN ; 
56 00 0424 CA 0524 cA D ; CMPC PREV DIRILEN, PREV_DIR, #0, HEADER_LEN, = ; 1576 
57 1 4 BEQL $ ; 
A a 4A TSTW  LINE_DESC : 1579 
C 4C BEQL «i$ ; 
A dd 0004 PUSHL R10 > 1582 
D4 CLRL. = (SP) : 
00006 CF 02 FB CALLS #2, DIRSOUTPUT ; 
D8 AA D4 CLRL. + COLUMN_INDEX : 1583 


———————_— 


H 6 A 
“S$ AX-11 Bliss-32 V 
‘DAsPhan ange 8Be F3:98:93 Pi beGalSteaccbia’secSorsprav.es2s9°%" «$9 
orn : 1585 
0526 CA 0§ 5A 1$: Ist PREV_DIR_LEN 
. ¥ 
IRSTO ; 
89gov 7 " f ep 2s: mou HEADER LEN, PREV_DIR_LEN ; 1586 
0424 CA 19 Ht a : ef moves DER TEN. ¢ petty PREV_DIR pas 
2 RR i RO aes 8 
' 0000" cr oF ‘ PUSHAB Pct ; 
#2, DIRSOUTPUT : 
sant 426 +4 oe § A pugtaB REV_DIR ; 1593 
3% CA OD $0 PUSHL PREV" DIR_LEN ; 
' CF 9F 0009 PUSHAB P.ADA ; 
000000006 Sf DD $8 PUSHL abiRs NEWDIRECT 
04 FB 0009C CALLS DIRSOUTPUT t ome 
wena: 4 062¢ CA 09 9041 3$: nove VERSION. COUNT, R8 
eS ee oe ee 
57 00 0528 CA 0628 CA D O00AC C pREV 
0630 6 be $b089 ONL VERSION_ INDEX ; 1606, 
59 80 Ober 4S: ROVE 55 _LEN, PREV FILE_LEN : 1607 
0528 CA 0678 he 25 BB tite _ MOVC3 NAME "LEN tng (RE), PREV_FILE : 1608 
etd in e booce 5$ cupt VERSIONCIN INDEX. RB ; 1611, 
= §3 3 ir $ Bho {428 : 
& my 30 ints H MOVL i PLAY_BLOCK, RO ; 1616, 
2g 18} co CO tits ADDL 3 (RO)> TOTAL_USED ‘vee 
vhitd fA §t30 CO €O O00E4 ADDL 301(RO) ; TOTALZALLOC 1617 
sab KA Be aooEF 1st6 QUAL _FLAGS*+2 ; 1620 | 
E2 19 000F2 L 3 | 
#2, QUAL_FLAGS+1, 6$ y 
“ wd since 0000° CF §? O90F9 PUSHAB P Apc 1622 
E D4 D - biel | 
om OO oe EE Rote SALES He PERSOUIEUT, Se nes -4 
08 
eA 4 BOR CLRW = LINE_DESC 16 5 
08 AA 8 10¢ MOVAB LINE SUFFER, chive -PESC+4 : 16 6 
OA 0 eB pie BS “ GUAL_FLAG : 168 
” RS 19 C€1 00116 ADDL3 #25, DISPLAY satotk: -(SP) 
$3 ne di 56 DD 00118 PUSHL HEABER_LEN. : 
0000" CF oF 11D PUSHAB P.ADE : 
EO 80133 Sere oa) DIRSAPPEND : 
$8 £8 RR Fe 1 ; 8$ ADDL DISPLAY BLOCK, HEADER_LEN, RO ; 1631 
” ” 19 A SF 51 B PUSHAB 25(RO) | 
9 D 001 PUSHL FILENAME_LEN 
0000" CF oP 1 PUSHAB P.ADG 
at a Sere ae DIRSAPPEND : a 
8 gh ee 1 MOVZ2WL LINE_DESC, R : 16 
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6 
| DISPLAY bes Sep 14 VAX-11 Bliss-32 V 1 
‘voe 14-5 Sep- 71984 43: 18; 3 DISKSVMSMASTER: cbt OFaCSDISPLAY. B32; ? ve $) 
6 14 C6 13¢ DIVL #30. Re : 
: 14 gs 13F MUL #20, R6 : 
| gh 14 MOVZWL LINE DESC, RO ; 
6 0 C2 0014 SUBL g R : 
‘, 14 (€0 0014 ADDL2 #26, SPACE_COUNT ; 
03 12 00148 BNEO ; + 1633 
56 14 00 00140 MOVL SPACE Count : 
| 56 DD 00150 98 Push. SPACES ; 1634 
0000° cr 9F 001 PUSHAB P.ADI : 
D4 001 CLRL 0s = ( SP) : 
03 FB 001 ALLS #3, DIRSAPPEND : 
A 3C 00158 MOVZWL LINE D + 1635 
8 dO 001 ‘ MOVL RB, MARK -BOSITION : 
0 —8 BA E 016 BLBS aDdisP SPLAY =BLOCK, 11$ + 1639 
08 00 6€ 0 2 0165 MOVCS #0, (SP)> #0, #8, LOCAL_DESC + 1642 
6E 0400 8F si A3 0168 SUBW3 RB, #1024, LOCAL_DESC + 1643 
04 AE 08 AAGB 9E 91 1 MOVAB LINE -Y UFFER RB), ~LOCAL_DESC+4 + 1644 
E 01 7D 00177 MOVO #1, =(SP) + 1648 
08 AE 9F OO17A PUSHAB LOCAL_DESC : 
OC AE 9F 00170 PUSHAB LOCAL DESC ; 
—E8 BA DD 3100 PUSHL apiSPcay PL Ock : 
000000006 00 05 FB 00183 CALL S$CET ; 
6A 6E A 018A ADDW (0 ater’ SESe ESC + 1649 
O7EO CA 6A 10 i FD 0180 cMPZV #0, #76, eral OESt DISPLAY_WIDTH + 1650 
6A BO 00196 MOVW § MARK_POSITION, LINE_DESC > 1653 
5A DD 00199 PUSHL R10 > 1654 
43 D4 00198 CLRL. = (SP) : 
00006 CF 02 FB 0019D CALLS #2, DIRSOUTPUT : | 
14 20 6E oe 00 2c O1A2 MovCS #0. (SP), #32, #20, LINE_BUFFER : 1655. 
6€ O3EC BF BO 001A9 MOV #1004 LOCAL_DESC > 1656 
04 AE 1C AA 9E O1AE MOVAB €_BUFFER+20, LOCAL_DESC+4 > 1657 
7E 01 70 0018 MOVa bin =(SP) : 1661 
08 AE 9F 001B6 PUSHAB ne DESC ; | 
OC AE 9F 00189 PUSHAB LOCAL DESC ; 
£8 BA DD 001BC PUSHL a@DISPCAY BLOCK : 
000000006 00 5 FB OO1BF CALL 5, SYSS$GETMSG : 
6A 14 A O1¢6 ADDW #20, LINE_DESC : 1662 
A DD 001C9 10$:  PUSHL. 1 > 1664 
E D4 O1¢8 CLRL. = (SP) ; 
00006 CF 9 FB OO1C CALLS #2, DIRSOUTPUT ; 
OA ¢ 31 O10 BRW > 1665 
50 1. OA : 105 11$:  MOVAB 28(R7), RO + 1668 
O7E0 CA 30 D1 00109 cap DISPLAY_WIDTH 
6A 6 A2 OO1E SUBW2  SPACE_COUNT. LINE_DESC > 1671 
A DD OO1E PUSHL R10 : 1672 
D4 OOTE CLRL (SP) ; 
00006 CF 02 FB OOIE CALLS #2, DIRsqUTEYT ; 
iC A 61 OO1EC 128:  CMPW , NE_DESC, #28 > 1674 
9 1A OO1EF BGTRU : 
56 A ; 1F1 MOVZWL LINE DESC, SPACE COUNT > 1675 
56 1E ; ib ssl . ACE_C COUNT, #307 SPACE _COUNT : 
56 DO OO1FA 13$:  MOVL #2, SPACE_COUNT : 1676 
| 
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a 
DISPLAY 1bes6 -1984 242: VAX-11 Bliss-32 V4.0-7 Pa 2 
aeebOo 12-88-1382 $34 $:93 DISKSVMSMASTER: cbik-sac DISPLAY.B32:1." (3 
0 AA DO 001FD 148 MOV PLAY_BLOCK, RO : 1677 : 
ee ae ea ! : 
| 0125 cb 8 str 298 cro) + 1678 : 
§ C BNEQ 32 : 3 
0127 ( Ist ? (RO) + 1679 ; 
7E 0127 C i 14 15$: MOV WL 238 no (SP) + 1683 : 
7E 0125 € 00219 MOVZ2WL 293(RO). (SP) : : 
DD 0021 PUSHL 1 : ; 
HR Bet Bat, pruge-comr ; : 
000009006 F DD 6 PUSHL  #DIR$ FULLPILEID : ; 
> PBs all fh seaiires ; 7 
ang: of BP Bisel THA: EUR, gPAGg_coum pum i 
000000906 F DD 00 ; PUSHL  #DIRS NOFUFILEID : : 
68 3 FB 00 CALLS #3, DIRSAPPE ; ; 
A DD 00¢40 178: BUSH Rip a ; 1685, ; 
00006 cf 05 FB 8 Py CALLS #2, DIRSOUTPUT : : 
0 8 AA DO 00249 VL ISPLAY_BLOCK, RO > 1688. : 
0180 CO DD 00240 PUSHL 301 (RO) : ; 
0131 ¢O OD 00251 PUSHL  305(RO) : ; 
0000" CF 9F 00255 PUSHAB P.ADO : | ; 
000000006 iy DD 00259 PUSHL #DIR$_FULLSIZE : | : 
8 oe SP o8se5 Shin ithe’ sete, Rake, POStTiON : 1689. : 
50 £8 AA 00 80 4 OVL  DISPCAY_BLOCK, RO : 1691. ; 
51 £8 AA BO 00269 MOVL DISPLAY. “BLOCK, R1 : 1690) : 
0119 C1 95 00 6p TSTB =. 2B 1(R1)~ : ; 
10 12 00271 BNEQ 18$ : | ; 
0146E CO DD 00 23 PUSHL  334(RO) : 1691 : 
0000" CF 9F 0027 PUSHAB P.ADQ : ; 
0000000Cs 1 8F DD 00278 PUSHL #DIRS$_FULLOWNERID : | ; 
OF 11 00281 BRB 19$ : | : 
Bs. EP RISE) ts pao fond 6/91 
poscnennh O28 PUSH SRIRS FULLOWNERUIC ae ; 
O7EO CA 6A 10 0 ED 0 34 , CMPLV #0, #16, LINE_DESC, DISPLAY_WIDTH 1693, : 
6A 5 BO 00 MOV MARK _POSITION, LINE_DESC : 1696 | : 
A DD OO2A PUSHL R10 : 1697. : 
00006 CF 65 PB OOSAg FACTS ae : | : 
R on Boies ae flee oe ig) i 
ris cl 7 8] 1s18 ioe | : 
S005 C0 pb ef PUSHL 354 (RO) ; 1699 ; 
000000006 i b> 0¢BF PUSHL #5]RS_FULLOUNERID 2 | 2 
On4e ai po £3 20$: — PUSHL 4(RO) : 1700 : 
000" CF 9F O02CB PUSHAB P.ADW : : 
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14-Sep-1 
000000006 8F DD OO2cF PUSH H IRS_F LLOWNERUIC : 
68 3 FB 4 gis: CALL g PTR APPEND : 
A oD DB 22$: PUSHL 3; 1702 
04 DA CLRL 3 
00006 cf 02 F D CALLS i: PDIRSOUTPU : 
0 58 AA D é MOVL qs seLock. RO + 1703 
01 C p E TSTL : 
1 E BNEQ : 
0174 0 : EB TSTL ow : | 
EF BNEQ : 
000000006 BF DD O02F1 PUSHL apis NOFUCREDAT + 1704 
68 1 8 ‘7 CALLS DIRSAPPEND : 
4 FA BRB gus : 
CO 9F OO2FC 238 PUSHAB $6 (RO) + 1705 
000" CF 9F PUSHAB P.ADY ; | 
000000006 8F 0D PUSHL aD IRS FY FULLCREDAT : | 
3 F A CALLS SAPP : | 
&8 AA D OD 246%:  MOVL biSrLAr. BLOCK, R2 + 1706. 
01 c2 D 11 TSTL : 
s Y 13 BNEG 5 ; 
017¢ c2 D 1 TSTL 0<R2) : 
B 1 1B BNEQ ; 
000000006 8F DD 10 PUSHL aDIRS NOF UREVDAT : 1707 
68 01 FB CALLS DIRSAPPEND ; 
7E 1 (3 3¢ 25$: MOVZWL tae -(SP) : 1709 
C2 OF D PUSHAB : 
000' cr OF 1 PUSHAB F 
000000006 8F DD 5 PUSHL abins FULLREVDAT ; 
6B 4 FB CALLS DIRSAPPEND 3 
A DD 26$:  PUSHL nid : 1710. 
E D4 0034 CLRL.  =(SP F 
00006 cr 02 F 4 CALLS #2 brsouTP PUT : 
8 AA D 4 MOVL SPLAY “BLOCK, RO : 1712 
0180 CO D 48 TSTL ; 
11 (1 4F BNEQ : 
0184 ¢O D 31 TSTL a8 no) ; 
1 5 BNEQ ; 
000000006 8F ODD 3? PUSHL #DIRs NOF UEXPDAT : 1713 
68 1 Fe D CALLS DIRSAPPEND ; 
111 60 BRB ; 
180 CO 9F 00362 278 PUSHAB 384(RO) : 1714 
000" CF 9F 00366 PUSH e ; 
000000006 8F ODD 6A PUSHL apIRS FULLEXPDAT ; 
3 F CALLS #3, DIRSAPPE : 
c8 AA D 73 28%: MOVL i PLAY_BLOCK, RO > 1715 
01 a) p 7 TSTL (RO) ; 
11 78 BNEQ 9 ; 
018c ~6= C0 p zp iste 96 (RO) 
000000006 8F DD 3 PUSHL aDIRS NOF UBAKDAT : 1716 
68 1 re CALLS DIRSAPPEND ; 
11 C BRB iss : 
1 CO 3 29%:  PUSHAB 83 RO) : 1717 
0 ' CF OF PUSHAB 3 ; 
000000006 &8F DD PUSHL apiR FULLBAKDAT ; 
68 3 FB 0039C CALLS DIRSAPPEND ; 
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9c $2:18:93 — biSkbunsmaste 


‘ APPEN 
Os Mey Boks Ras 


#OIRS FILORGSEQ 
aly DIRSAPPEND 


R #1 
538 
400(R2) 


B -AEG 

#0 [RS_FILORGREL 
34 

a3, #2 

#DIRS F ILORGIDX 


406(RO), =(SP) 
El 


#DIRS$_IDXPROLOG 
#4, DIRSAPPEND 
DISPLAY_BLOCK, RO 
$ : RO)? #1 


P.AEM 
#DIR$_F ILORGUNK 
. F DIRSAPPEND 


#OIR ayy TIM 
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52 1 DO 004 m, J 3 1749 
Hy e fe 368: STW LSE DESC + 1752 
9 4 BEQL 5 ; 
0000' cf 9F 0047A PUSHAB P.AEQ : 
68 05 Pe bbce CALLS #2, DIRSAPPEND : 
A e§ 483 37%: TST NE_DESC + 1753 
9 4 BNEQ i" : 
0000° cf oF PUSHAB P.AES : 
05 Pe 00e EALES 82> DIRSAPPEND ; 
eg AA 09 388: MOVL Disp PLAY BLOCK, 0 : 1755 
1 £8 AA D 94 MOVL DISPL VIBLOCK + 1754 
02 0129 «C1 4 4 FD 498 CMPZV ry cnt #2 : 
1 49F BNEQ 398 : 
7€ 137. CD 9A 004A1 MOVZBL 311(RO), =(SP) + 1755 
900° F OF 0046 PUSHAB P. sAEY : 
000000006 8F DD O0SAA PUSHL #DIR$_MAXBKTSIZ : 
F 11 0048 BRB 40$ F 
7€ 137. CO 9A 00482 39$:  MOVZBL 311(RO), -(SP) + 1756 
000° CF 9OF 48 PUSHAB P.AEW ; 
000000006 HE PE SSE con, EXE SEUNG URUCSEES? : 
O7EO CA 6A 10 ED bite CHEZ #0, #16, LINE_DESC, DISPLAY_WIDTH : 1757 
6A BO 004¢ MOVW § MARK_POSITION, LINE_DESC + 1760 
A DD 0040: PUSHL R10 : 1761 
00006 CF 03 rs Oeps fits ag, DIR $OUTPUT : 
F3 00409 AOBLEQ #2. J, 368 t 1749 
" i A 3 400 41$: mOVZUL LINE DESC. MARK_POSITION 1766 
A 3 463 42%:  TSTW L JME DESC : 1770 
9 4E BEQL © 438 F 
0000° cf 9F O04E PUSHAB P.AEY : 
68 OS Pe bocee EALLS #2. DIRSAPPEND : 
A 63 bet 43$: STW  LINE_DESC : 1771 
0000" tr oF oct BUENAS PAPA : 
is ate Ant gg Pe. : 
$9 it AA DO OOGED 448: VL pisPLay BLOCK, RO > 1772 
t 130 6CO3¢ 1 MOV2WL (RO)? =(SPS ; 
0000+ F OF PUSHAB BAR 
coco A PE aarty EARN tuaue : 
O7E0 «OCCA tb 1 i 13 CMP zV ‘ i ores LINE _DESC, DISPLAY_WIDTH : 1773 
ry 8 iC MOVW § MARK_POSITION, LINE_DESC : 177 
2a) a a a 
oe 4} Koateo 98° yenesh 1767 
" i A f C 458: MOV ZuL LINE yest. MARK _POSITION v7 1 
6A 8B 2468: STW  LINE_DESC 317 g 


=e ; ss-32 V e 
“1 26 K-11 Pag 
Tbaeboo 15- Hat 1 13:38:93 SKSVMGHASTERCLDIR SRC SDISPLAY B32; : 
09 13 BEQL =-«&7$ 
00" CF OF PUSHAB P.AFE ; 
“ae 5 D4 A CLRL. 0 = SP) ; 
02 F C ALLS #2, DIRSAPPEND i tens 
- A 63 F 47%: 13 b NE_DESC ; 
0000° ? 9F 4 PUSHABR P.AFG 
5 D4 0054 CLRL = SP 
0 FB 49 CALLS #2 pinsarnen END Some 
50 8 to By 55 $08: oy baa hoy cee gonar™ 
wel: is ate apiRs NOVERL IMIT : 1788 
bemnengn: Se | re H CALS Hi DIRSAPPEND 
7€ 11D 6 x 6¢ 498: ROvzuL 285(R0), -(SP) ; 1789 
w0008 38, f DD 360 Bue PIR rVERbinit 
$8 3 a ate 508: Eabby i: eek LINE_DESC, DISPLAY WIDTH ; 1790 
wh r 9 3 baie abu AAaK _POSITION, LINE_DESC F 1798 
- 582 PUSHL R10 ~ : 
e 6? 5 CLRL. = (SP) ; 
0 4 0 CALLS #2, DIRSO TPUT F ties 
avers gf 0 Fg AOBLEQ #2. J : 1783 
3$ 6A 3¢ bear 51$:  MOVZWL LINE bes, ofthe gposition 1798 
50 &8 AA 3 0592 MOVL srCAv_6t 
0149 C0 0596 TST 3 ; 
Ee ae ao 
” OA 63 039 52%: At : NE _DESC ; 
' ee i Hy PUSHAB P.AFK 
_— 7 D4 beAe CLRL 0 =< SP) 
FB 00549 CALLS #2, DIRSAPPEND sees 
| HR By flee ie : 
0000' c oF ue PUSHAB a) 
5 eS 56 CALLS #2 DIRSAPPEND poe 
- 000000006 8F DD 88 54%:  PUSHL avin $ FILATRCTG 
% ) tp c tnpby a, ar LINE_DESC, DISPLAY_WIDTH ; 1808 
: 
a : . : Bt Eb secunien, in ses Hay 
A dod 005¢ PUSHL 
D4 CLRL. = (SP) 
CALLS ’ - DIR UTPUT —~ 
00006 CF ; F 3 
” 03 iS BB 55$ moviUL LINE “bese. MARK_POSITION : 18? 
D MOVL ) srt BLOCK RO : 
FP OSE OSE BBC’ wb, S29TRO). $98 oe 
af wer § 1 D MOVL “i, J 183) 
4 e £5 568: IST b JHE ESC 
9 ED 
0000" CF 9F OOSEF PUSHAB P.AFO 
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18.se 1984 23:42: VAX-11 Bliss-32 V4.0-74 Page 67 01S! 
12-8 08= 1 abe 93:99:93 STEKSUMCHASTER CEDIA SRC TDISPLAY.832:1 ° (3 VOR: 
7E 04 O0SF CLRL. = (SP) F is 
68 | 65 F 3 CALLS #2, DIRSAPPEND : 3 1 
gn 8 FB 57$: TSTW , NE _DESC ; 1825 2 i 
9 FA BNEQ : : 1 
0000" cr OF O05F PUSHAB P.AFQ : 3 1 
: D4 006 CLRL 0s = (SP) : : 1 
68 FB 006 CALLS #2, DIRSAPPEND : 3 1 
000000006 8F DD 00605 58$:  PUSHL #DIRS$ FILATRCTB + 1826 3 1 
68 1 FB 006 CALLS #1, DIRSAPPEND : 3 1 
O7EO CA 6A 10 00 ED ae CMV #0, #16, LINE_DESC, DISPLAY_WIDTH + 1827 : u 
6A 27 80 061 MOVW § MARK_POSITION, LINE_DESC : 1830. 31 
A DD O061A PUSHL R10 + 1831 3 1 
7E D4 996 1¢ CLRL. = (SP) : | 3 1 
00006 CF 0 Fe 061 CALLS #2, DIR$OUTPUT : | 3 1 
C4 3¢ 02 £3 006 AOBLEQ #2, J : 1821, 3 1 
5 6A 3C 00627 598 MOVZWL LINE DESC, MARK_POSITION + 1836 7 1 
50 —E8 AA DO 0062A MOVL DISPLAY BLOCK RO 3: 1837 3 
3F 0149 «C0 06 £1 006cE BBC #6, 329TRO), 638 : : 1 
52 01 DO 00634 MOVL #1, J + 1840 31 
6A B85 00637 608 TSTW LINE_DESC > 1843 3 1 
09 13 00639 BEQL 61$ : 71 
0000' cr 9F 006 PUSHAB P.AFS : | 71 
E D4 0063F CLRL = (SP) : | 1 
68 02 FB 00643 CALLS #2, DIRSAPPEND : 1 
6A BS 00644 61%:  TSTW LINE _DESC + 1844 1 
09 12 00646 NEQ 62$ ; 71 
0000" CF 9F 00648 PUSHAB  P.AFU : 3 1 
43 D4 0064 CLRL = = (SP) ; : 1 
68 02 FB 0064E CALLS #2, DIRSAPPEN : : 1 
000000006 8F DD 00651 62$:  PUSHL #DIRS$_FILATRLCK : 1845. 71 
68 01 FB 00657 CALLS #1, DIRSAPPEND : 3 i 
O7EO CA 6A 10 00 ED 065A CMP2V #0, #16, LINE_DESC, DISPLAY_WIDTH + 1846 > 1 
10 15 00661 BLEQ 6 : | 1 
6A 7 BO 00663 MOVW § MARK_POSITION, LINE_DESC > 1849 : 1 
A DD 0666 PUSHL R10 : 1850, 1 
D4 006 CLRL. = = (SP) ; | 1 
00006 CF 0 Fe 066A CALLS #2, DIRSOUTPUT F | : 1 
C4 3¢ 02 F 066F AOBLEQ #2, J, 60$ + 1840 : 1 
5 6A 3C 00673 638:  MOVZWL LINE DESC, MARK POSITION > 1855. ; 
50 —8 AA 00 00676 MOVL DISPLAY BLOCK RO : 1856. eb 
3F 0149 0 gt E1 0067A BBC #i, 329TRO), 678 : | : 1 
52 1 =O 6 MOVL wi, J ; 1859. 3s 1 
6A 8 683 64$: STW L INE DESC > 1862 > 1 
9 6 BEQL a ; : 1 
0000" cr 9F 006 PUSHAB P.AFW : : 1 
D4 006 CLRL 3s =< SP) ; 3 1 
6B 02 FB 006 CALLS #2, DIRSAPPEND : : 1 
SA & 690 65$:  TSTW  LINE_DESC + 1863 > 1 
09 69 BNEQ 66$ : : 1 
0000° cr 9F 00694 PUSHAB  P.AFY : : 1 
5 D4 00698 CLRL = = (SP) ; : 1 
68 FB O069A CALLS #2, DIRSAPPEND : : 1 
000000006 8F ODD 66$:  PUSHL #DdiRS F ILATRNOBAK > 1864 1 
1 FB 006A CALLS #1, DIR APPEND : ae 0 
O7EO «OCA 6A 1 : FD 6A6 CMP2V #9 #16, LINE_DESC, DISPLAY_WIDTH > 1865 : 1 
1 6AD BLEQ 436s 6 7$ ; 3 1 
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sh 60 6AF 
A OD 6B2 
04 6B4 
08 Fe 6B6 
0 i 688 
6A af 6BF 67$: 
AA D0 ote 
02 €1 6C 
01 =O 6cc 
oF Blatt 
cr oF 8 3 
04 1) 
0 fe 0609 
GA BS 9060C 698: 
ot See 
BES SEE soe, 
01 FB OO6EF : 
0 €D Beers 
19 15 OO6F 
37 80 06re 
si Bie 
03 Fe tie 
0 F3 0070 
6A 3C Boo oe 71$: 
AA 00 0070 
03 «€1 00719 
01 00 885) 
eA 85 00718 728: 
ct OF OO71F 
3 04 007 : 
0 FB 007 
eh 85 90728 738: 
cr ot ore 
09 FB 007 ¢ 
01 44 f 743%: 
8 4 
; BO 0074 
A 00 74A 
Fe SSte 
6A i¢ f 758: 
AA OD 75A 
EY OO7Se 
5 FG Sie 7 


MARK POSITION, LINE_DESC 
R10 


-(SP) 
#2, » DIRSO TPUT 
e bEsc. MARK_POSITION 
b| SP AY 1 eBLOCK RO 
» 329TRO) 71$ 
L INE _vESC 
69$ 
P.AGA 
-(SP) 
#2, DIRSAPPEND 
NE_DESC 


eseey 


RSAPPEND 
ay F ILATRWRBAK 
DIRSAPPEN 


n, 
#0, #16, LINE _DESC, DISPLAY_WIDTH 
jpegseeae LINE _DESC 


= (SP) 
» DIRSQUTPUT 
LINE c bESC. MARK POSITION 
sa nt 
Hie DESC 
PAGE 
~(SP) 
#2, DIRSAPPEND 
INE_DESC 
P AGG 


SP) 
DIRSAPPEND 
Bin FLATRRDCHK 


4 4 en LIN DESC, DISPLAY _WIDTH 
MARK _POSITION, LINE_DESC 
| Bas 


i: "bins TPUT 
e best. oflARK POSITION 
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; e 69 | OAS 
-$ep-1984 23:42: a sel iss-32 V Pag t 
CREME ENGSRE UNGAWEASHER tEbranan ae 
' CF OF 00768 PUSHAB P.AGI | 
oe Pe bo7%1 Sere #2 DIRSAPPEND prea 
oo A e§ 126 77$: STW , NE_DESC 
$9 7 : BNEQ ; 
0000' CF 9F 0077 PUSHAB P GK | 
68 5 PS pe yh at DIRSAPPEND ser | 
000000006 8F oD , i 78$: PUSH Fy sTRdKerEN a 
O7EO CA 6A 8 tD 78A CHEZV #16, LINE_DESC, DISPLAY_WIDTH ; 3 
6A 19 3 ; 4 MOVW § MARK_POSITION, LINE_DESC ; 1925 | 
$a Bo Gorse uum RIO ; | 
; Py 
00006 CF 03 rs 079A CALLS i. "bunsoureut po | 
in ; Oe Se bOtAs mOveUL bese. MARK ghOS1T10N + 1931 | 
28 6A 3 O7A3 79$:  MOVZWL LINE ESC. : 1331 
50 —E8 AA DO 007A6 MOVL A B3ork LOCK bsee ; 
3F 014A C0 03 €1 OO7AA BBC een 
52 01 00 0078 MOVL ‘ : 1935 
6A 83 0076 80$: STW the DES | 
09 13 0078 BEQL : ; | 
0000' cr 9F 00787 PUSHAB PAGs ; | 
65 Pe bores Eiits #2. DIRSAPPEND ss | 
i 6A 63 90700 81$: STW NE_DESC ; | 
09 12 007¢ BNEQ Keo 
oe 4s 1 
FB OO7CA CALLS 2 PPEND teen 
= 000000006 ge 4 go7¢ 82%: PUSHL serene 
"5 60 ED a Fe cabby 50° #16, LINE_DESC, DISPLAY_WIDTH ; 1941 
O7EO CA 6A CHEZ pate 
wa BE uF a eee - 
AD ; 
7E4 CLRL (SP) ; 
omg OB tte, ah hnsouinn ce 
= 35 os fe over 83$: mOVZUL LINE besc. MARK POSITION 1330 
014A 26 08 bY ore BBC a AY (BLOCK 87$ ns | 
cs 52 01 00 OO7FC MOVL =so#f. - 1954 | 
A B3 7FF 84%:  TSTW LINE _DESC ; | 
$9 1 1 BEQL $ ; | 
0000' cf 9F 3 PUSHAB P -AGa ; | 
5 pe ah #2, DIRSAPPEND : 
- eA Stu LTWE-DESC : 1958 | 
09 93 Oo8or Buea BS” | 
0000' cf 9F 0081 PUSHAB a ; | 
PS b08i6 ets IRSAPPEND : 
- DP 18 suthe ir F LATRDIR : 1959 | 
000000006 Dp 15 86S: PUSHL ip Stadke FILAT se pee | 
CMPZV Ay #16, CINE DESC, DISPLAY_W : | 
O7EO =A 6A 1 0 €D 00822 


7 
DISPLAY 18-5 Sep :42:09  VAK=11 Bliss-32 Vv 70 
Mbt bd 14-Sep 71382 3: 18: 3 DIS $v nen STER: cbt ORC SDISPLAY. 832; (29 * 0?) 
| 10 1 9 BLEQ ©: &7$ : 
6A 3 43 8 MOVW § MARK_POSITION, LINE_DESC + 1963 
| t be crate ={SP) — 
- 00006 CF 08 Fe CALLS, 8 . + BIRSO TPuT 3 ene 
5 = 6A i 87$: MOVIL | 1% he esc. gttARK POSITION : 19 9 
| 3F 014A cD 6 € 43 BBC A Rh eC™ $1$ ; 
1 0 MOVL a" J : 1973 
6A 8 4B 88$: TSTW LINE _DESC : 1976 
| 9 1 4D BEQL $ : 
0000° cr 9F OOB4F PUSHAB P.AGU : 
5 D4 0085 CLRL 0s =< SP) : 
68 02 F 0 5 CALLS #2, DIRSAPPEND : 
6A 8B 58 89%: STW INE_DESC + 1977 
09 12 0085A BNEQ : 
0000" cr 9F 0085¢ PUSHAB P. “AG : 
68 65 BS § e2 iit #2. DIRSAPPEND ; 
= 000000006 a Dp oases 908: PUSHL ADIRS FILATROADBLK 3 1978 
O7EO0 CA 6A 10 00 ED O86E CMP7V #0. #16, LINE_DESC, DISPLAY_WIDTH > 1979. 
10 15 008 BLEQ $18 : 
6A 57 80 00877 MOVW § MARK_POSITION, LINE_DESC : 198 
mw ie lak RM, By 
cg 00008 BS EU SSR GASES Fe bongs Pon 
36 6A 3¢ itt 91$:  MOVZWL LINE “bese, oitarK POSITION : 1988 
50 —8 AA 00 att MOVL bugs) , RO : 1989 
3F 0148 cO €9 O88 BLBC i ae : 
52 01 DO 0089 MOVL J : 1992 
6A 8 0896 92% TSTW tie pesc : 199 
09 13 00898 BEQL 53$ : 
0000" CF 9F OOB9A PUSHAB P.AGY : 
43 D4 008 CLRL 3s = (SP) : 
68 02 FB 008A CALLS #2, DIRSAPPEND : 
6A BS OO8A3 938: TSTW INE_DESC > 1996 
09 12 OOBA BNEQ ; 
0000° cr 9F OO8A PUSHAB P.AHA ; 
68 eet CALLS #2», DIRSAPPEND ; 
000000006 ‘ DD BO 94$ PUSHL He F JLATRNOCHRG ; 1997 
O7EO0 CA 6A 1 ft f 53 CMPLV * #16, LINE_DESC, DISPLAY_WIDTH 1998 
6A 8 ¢ MOVW  § MARK_POSITION, LINE_DESC : 2001 
A 0D 008C PUSHL R10 > 2002 
D4 OO8C CLRL = (SP) ; 
ts 00006 CF 0 Fe C9 CALLS " DIRS TPUT a 
6A Hi Do 95$ MOVZWL ThE ois ote gpOStTION : 3007 
8 AA D D MOVL ba ; 2008 
3F 0148 ¢ 1 €1 0080 BBC ' > Sy rROS : 
1 09 DF MOV : : 301) 
6A BS OOBE2 968 TSTW CINE “ese > 2014 
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97$ 
P.AHC 


=(3P) 

#2, DIRSAPPEND 
NE _DESC 

P.AHE 


#2, DIRSAPPEND 


#OIRS_FILATRERASE 
#1, DIRSAPPEND 
#0. #15, LINE_DESC, DISPLAY_WIDTH 


MARK_POSITION, LINE_DESC 
R10 

=(SP) 

3, DIRSOUTPUT 

#2. J, 968 

L INE DESC 

100$ 

R10 


-(SP) 
#2, DIRSOUTPUT 
#DIRS_RECFORMAT 


#1, DIRSAPPEND 
DISPLAY BLOCK R2 
, #4, 297(RO), R3 
101s 
299(R2), =(SP) 
#DIRS_RECFMTF IX 
nf 
bs 


4 
#DIRS_RECFMTVAR 
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2015 


em 12-Sep-1986 12:19:92 DISKSVMSMASTERSCDIA. SRCODISPLAY.832;1°9° (75 


000000006 8F DD a3 PUSHL #DIRS RECEMTSTMCR ; 
6B 1 8 SAS 1078: CALLS #1, DIRSAPPEND : 
| £ 11 O09AC Brest 168 ; 
x po gar 108$:  PUSHL R + 2037 
| 9000" F 9F 0098 PUSHAB P.AHK : 
000000006 8F DD 00984 PUSHL #DIR$_RECFMTUNK : 
3 FB 9BA 109$: CALLS #3, DIRSAPPEND : 
E8 AA 00 009BD 110$: vL OD SPLAY BLOCK RO : 2039 
01 0129 «C0 04 09 : 9C1 CMP2v #0, #4, (Rb), #1 : 
1 9(8 EQ. 4=Sséa1'8 : 
0128 i B gc IST #99(RO) + 2040 
7E 0128 C 3¢ £306 MOVZWL 299(R0), =(SP) + 2041 
000' CF 9F 009D PUSHAB P.AHM : 
000000006 8F DD 00909 PUSHL ap iRS MAXRECSIZ ; 
6B 3 FB 0090F CALLS #3, DIRSAPPEND s 
A DD 009E2 1118:  PUSHL R16 + 2042 
5 D4 009E4 CLRL. = (SP) : 
00006 CF 0 FB 009E6 CALLS #2, DIRSOUTPUT : 
000000006 8F DD 009EB PUSHL #DIR$_RECATTR 5 2044 
68 01 FB aad, CALLS #1, DIRSAPPEN : 
50 &8 AA DO 009F4 MOVL DISPLAY BLOCK, RO + 2045 
52 012A «C0 3 009F8 MOVAB (RO) > ; 
62 95 009FD TSTB Re) : 
08 12 O09FF BNEQ 1128 : 
000000006 BF DD OAg! PUSHL #DIRS_NORECATTR > 2046 
57 6A 3 Boag 112$:  MOVZWL LINE_DESC, MARK_POSITION > 2069 
08 62 01 £1 OOAOC BBC #i, TR2), 1138 : 2050 
000000006 8F DD QOA10 PUSHL #DIR$_CRCARCTL : 2051 
1D 11 Aig BRB 116$ ; 
08 62 €9 OOAI8 113$: BLBC (R2), 1148 : 205 
000000006 8F DD OOA1B PUSHL #DIR$_FTNCARCTL : 205 
ff 11 OCA 1 BRB 116$ : 
08 62 02 €1 OOA ; 114$: BBC #2, (R2), 115$ > 2054 
000000006 ar Dp OA 7 PUSHL wins PRICARCTL : 2055 
000000006 BF DD OOACF 115$:  PUSHL #DIRS_NOCARCTL : 2056 
$8 01 FB OA35 1168 CALLS #1, DIRSAPPEND 3 
Pan a a on 
57 6A 10 0 FD hig CMPZ2V #0, #16, LINE_DESC, MARK_POSITION : 2060. 
09 OA4 EQ. =s-:«d3s*i' ?'S : 
0000" fe Be Rakes Eun Ea : 
68 5 FB AGF CALLS #2, DIRSAPPEND 3 
000000006 8F DD OOA ; 117$: PUSHL #DIR$_NOSPAN > 2061 
6B 1 FB OOASS 118% CALLS #1, DIRSAPPEND : 
A DD OOASB 119$: PUSHL R16 > 2064 
5 D4 00A5D CLRL. = (SP) : 
00006 cr 02 FB OOASF CALLS #2, DIRSOUTPUT : 
3 0000" F f A BLBS J URNAL FLAG, 120$ + 2066 
000000006 Dp ag 1208 PUSHL #DIRS_ JNL ENABLED ; 2069 
59 §8 AA 00 A? MOVL DISPLAY BLOCK, RO : 2070 
0154 CO 9€ OOA7 MOVAB (RO)? R : 


| 
7 
15-Sep- 74 VAX-11 Bliss-32 v4. 73 DIS 
14- abe 1382 $3; 18: 93 DISKSVMSMASTER:CDIR. OSRCSDISPLAY. B32; (29 aD Woe 
2 85 Yi TSTw = {R2) ; :1 
8 A BNEQ i2i$ : s 3 
000000006 8F DD O0A PUSHL. abIRs NOJNLENB + 2071 :1 
1 rg A CALLS DIRSAPPEND : 3 1 
60 11 OOA BRB : 31 
6 gi A8D 121%: BBC (R2), 122% + 2074 : 1 
0000' cf F OOA PUSHAB P Ava : : 1 
D4 O0A9 CLRL : 31 
$8 02 FB OOA9 CALLS POIRSAPPEN D : :1 
0 E8 AA DO OOASA 122%: MOVL i AY_BLOCK, RO + 2075 : 1 
0154 ¢ 02 : ASE BBC 40TRO), 123$ : : 
0000' cr F OOAAG PUSHAB : | ; 
D4 OOAAB CLRL os] : : 
$8 0 fe AAA CALLS Pe toy ton 3 3 
50 E8 AA DO OOAAD 123%: MOVL isp sts OCK, RO t 2076 : 
0154 C0 04 eI OAB1 BBC thd): {24$ : : 
0000' cr F 0OAB7 PUSHAB : : 
D4 OOABB CLRL wy : : 
98 0 fe OABD CALLS Ps DIRSAPPEND $ : 
0 E8 AA 00 OOACO 124$: MOVL ot B OCk > 2077 : 
0154 C0 01 a OAC4 BBC 40TR Ks oes : : 
0000" CF 9F OOACA PUSHAB ay 3 ; § 
7E D4 BRACE CLRL ep) r é 
68 02 FB QOAD CALLS nD DIRSAPPEND : : 2 
50 AA DO OOAD3 125$:  MOVL ISPLAY BLOCK, RO : 2078 3 
09 0154 CO £9 OAD? BLBC 40¢ (RO); 126$ : | ar] 
0000' cf F OOADC PUSHAB P. pany 3 3 
D4 OOAEO CL : : 2 
68 02 FB OOAE CALLS at yt oe $ 34 
50 E8 AA DO OOAES 126%:  MOVL i it) B otk, RO t 2079) 3 é 
0154 CO 05 a OAE9 BBC 40TRO), 1278 ; | : 
0000° CF 9F QOAEF PUSHAB : | : 2 
7E 04 OOAF CLAL Psp) 3 sé 
68 0 Fe OAF CALLS #2, DIRSAPPEND : : 2 
A B7 OOAF8 1278: ECW LINE_DESC > 2080 | | 
A DD OOAFA 128%: PUSHL R10 : 2082. : 
7E 04 OOAFC CLRL -(SP) : : 
00006 CF 02 FB OOAF CALLS #2, DIRSOUTPUT : : 
50 8 Ak p 0B MOVL OD SPLAY BLOCK, RO > 2083 : 
O1a9—s€ 0B TSTB = 425 (RO)~ ; | : 
15 13 00B BEQL 1298 ; | : 
01A9. «CO «(9F 00B0D PUSHAB 425(RO) > 2084 | : 
0000' F 9F 00B11 PUSHAB P.AIC 3 3 
000000006 Ff DD 00815 PUSHL # IRS 8 BIJNLNAME : : 
00006 CF 3 FB B18 CALLS #3, DIRSOUTPUT : : 
1 11 008? BRB 136$ ; : 
0154  c0 2 £1 00892 1298: BBC #2. 540(RO).. 1308 : 2085 :§ 
000000006 8F 0D PUSHL #DIR > 2086 | 3 
00006 cf t, CALLS #1 DIRSOUTPUT ; | : 
0 3. AA 0 B33 130$: MOVL OD PLAY BLOCK, RO : 2087. : 
01 C TSTB 408 (RO ; : 
15 13 008 BEQL 1318 ; : 
198 ¢ i B30 PUSHAB 408(ROQ) > 2088 : 
00 ' CF OF 00B41 PUSHAB P. ALE : | 3 4 
000000006 §8F DD 00B45 PUSHL #DIR$_AIJNLNAME : 3 4 
00006 CF 3 FB 0848 CALLS #3, DIRSOUTPUT : 4 
11-11 «0085 BRB 133s ; 4 


— mi 
| 
7 
DISPLAY I. Sep-1984 23:42: VAX-11 Bliss-32 v4.0- Page 74 
Voe-b00 1278 08-19be 93:48:93 DISKSVMSMASTER:CDIR. SRCSDISPLAY.832:1 0d) 
| 08 0154 CO 3 €1 00852 1318 BC 40(R0) , 132$ : 2089 
000000006 i DD 638 PUSHL Ate ye JNL + 2090 
00006 cf 1 FB 008 CALLS #1 DIRSOUTPUT : 
0 EB AA p B63 132$: MOVL DISPLAY_BLOCK, RO + 2091 
O1BA  ¢ B6 STB 0s (RO) : 
15 13 00868 QL =s«43:33$ : 
C 3 86D PUSHAB 442(RO) + 2092 
900° F 9F 008 l PUSHAB p AIG : 
000000006 F DD B7 PUSHL #DIRS_ATJNLNAME s 
0000G CF 03 re : CALLS t3 { DIRSOUTPUT : 
08 0154 CO 4 €1 00882 133%: BBC 340°R0) 134$ + 2093. 
000000006 8F DD 008 PUSHL s0IR : 2094 | 
0000G CF 1 FB 43) CALLS #1 DIRSOUTPUT : 
000000006 8F DD 00893 134$: PUSHL spins FILEPROT + 2097 
68 1 FB 00899 CALLS #1, DIRSAPPEND : 
: d4 0089C CLAL : + 2098 
12 00B9E 135$: BNE + 2103. 
000000006 8F DD OOBA PUSHL #DIRS_svSPROT : | 
5 11 008 BRB 139$ : 
01 : D1 OOBAS 136%: CMPL J, #1 + 2104 
0 12 00BAB BNEQ  147$ ; 
000000006 8F ODD OBAD PUSHL #D1RS_OUNPROT : 
18 11 0088 BRB 139$ : 
02 52 01 0885 137$: CMPL J, #2 > 2105 
08 12 00888 BNEQ 148$ : 
00000000G 8F ODD ppeek PUSHL FRLE*.SrPneE 3 
Q 11 008 BRB 139$ ; 
03 D1 o0B¢ 138%: CMPL J, #3 > 2106 
09 12 00BC BNEQ 140$ ; | 
000000006 8F DD 00BC PUSHL #DIR$_WORPROT : 
68 01 FB OBCD 139%: CALLS #1, DIRSAPPEND $ 
50 g8 AA DO 00800 140$:  MOVL Ratko) ma RO + 2108 
53 0152 «Cc0 4 00BD4 MOVAB : 
51 52 O¢ 78 00809 ASHL ; 
50 63 04 1 €F OOBDD EXT2ZV al. tR3) : 
0000"cF40 DD OBE? PUSHL Hi, TABL PERO : | 
68 3 Fe OBES CALLS a. DIRSAPPEND : 
AE 52 F3 OOBEC AOBLEQ J, 135$ > 2098 | 
A oD OBFO PUSHL : 2110 
E D4 O0BF CLRL. = (SP) : 
90006 CF 02 FB OOBF4 CALLS #2, DIRSOUTPUT : 
O7Fe «OCCA p OBr9 TSTL ACL_LENGTH : 2112 
7 BFD BLEG 14 : 
0000v CF 0 fe OBFF CALLS #0, DIRSSHOW_ACL + 2113 
B 1 9CO4 BRB 143$ ; 
000000006 BF DD 00C06 141$: PUSHL #DIRS_NOFILEACL > 2114 
0000G CF 1 FB OcOC CALLS #1, pyRsoutPut 3 
0 1 p OC11 142$: MOVL #1.R > 2116 
4 00C14 RET > 2118 


; Routine Size: $093 bytes, Routine Base: SCODE$S + OBES 
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119 } ROUTINE DIRSSHOW_ACL = 

121 1 !ee 

1 § 1! 

: Z : } FUNCTIONAL DESCRIPTION: 

125 1! This routine is called to dis Lay the file's ACL. The output 
1 $ 1: format differs depending on whether or not a full directory 
} 5 : listing is required. 

129 1! CALLING SEQUENCE: 

; ? } ; DIRSSHOW_ACL () 

1 é 1 § INPUT PARAMETERS: 

Eb tiene 

135 1! IMPLICIT INPUTS: 

: 1} none 

138 1 | OUTPUT PARAMETERS: 

iB fae 

141 1°! IMPLICIT OUTPUTS: 

14 1! none 

128 1! 

144 1 ! ROUTINE VALUE: 

ean ’ 

147 1! SIDE EFFECTS: 

148 1! none 

149 1! 

i on ee 

136 BEGIN 

154 LOCAL 

155 ACL_BUFFER : REF SBBLOCK, ! Address of ACL storage 
156 ACE-POINTER : REF $BBLOCK, ‘ Pointer to binary AC 

157 ACE_BINDESC : SBBLOCK (8), ! Descriptor to binary ACE 
158 ACE_TXTDESC : SBBLOCK : Descriptor to converted ACE 
159 ACE-TEXT : $8BLOCK 721, ' Converted ACE text storage 
160 ACL_F IBDESC : SBBLOCK (8), ! FIB egscriptor 

161 ACL_FIB : S$SBBLOCK ‘I $C_LENGTH), ! File FIB 
16¢ ATR” DESC : SBBLOCK (12), ° Attribute descriptor 

16 STATUS, ' Routine exit status 

H+ ¢ 0sB : VECTOR (4, WORD); ' 1/0 status block 
1 EXTERNAL vps ts 

1 DIRSOUTPUT; ! General output routine 
189 IF .DISPLAY_BLOCKCDIR_B_NODE) EQ. 0 

170 THEN 

4 BECIN 

178 ! Allocate a block of storage for the file's ACL. 

175 STATUS = LIBSGET_VM (ZREF (512), ACL_BUFFER); 


OBzr rm Diu 
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| DISPLAY 18-se -1984 23:42: VAX-11 Bliss-32 V4.0-74 Page 77 
Ybe-b00 e-8eea She 3:19:93 PecsvmGAAS fens chta’sacSorspav.e32:1°%" «os | 
; 2 3 7 Se STATUS; 
i 1 5 4 If jACE POINTER EQL .ACL_BUFFER AND .QUAL_FLAGSCDIR_V_QUAL_FULL] 
1 - 5 BEGIN 
18464 P 8 7 GETMSG (MSGID = DIRS FILEACL, 
1845 p 7 MSGLEN = ZREF (0) ! Length is a throw-away 
1846 P 2060 7 BUFADR = ACE_TXTDESC, 
i 41 i a FLAGS = 1); 
i $ cf waite (6, "!AS*, ACE_TXTDESC); 
1 ? 45 ACE_POINTER = .ACE_POINTER * .ACE_POINTERCACESB_SIZE); 
1 ; 4g 4 END; 
1 4 END; 
1 34 48 END; 
1855 49 
1856 30 RETURN 1; 
1858 52 END; ! End of routine DIRSSHOW_ACL; 
.PSECT $PLITS,NOWRT,NOEXE ,2 
D 00584 P.AlJ: .ASCII <13> : 
A 00585 “ASCII =<10> : 
05 -BLKB 
3 05 P.AII: LONG : 
* 0058 “ADDRESS P.AIJ ; 
1 05 P.AIL: ASCII \!AS\ : 
59 ‘BLKB 
; 0594 P.AIK: :LONG 3 : 
0598 “ADDRESS P.AIL : 


.EXTRN LIBSSIGNAL, SYSSFLUSH 
TEXTRN SYSSWAIT, SYSSFORMAT_ACL 


.PSECT $CODES,NOWRT,2 
OFFC 00000 DIRSSHOW_ACL: 
~WOR 


D Save R2,.R3.R4,R5,R6,R7,RB,R9,R10,R11 : 2119 
8 0 9€ 0000 MOVAB LIBSSIGNAL, R11 ; 
A G 3 MOVAB SYSS$WAIT. R19 : 
9 G MOVAB SYSSFLUSH, R : 
a EF 9E 0001 MOVAB TPUT RAB, RB : 
F3ac)C«dCE:COQ 1 MOVAB OU TBaCSP). SP ; 
F FC ¢ 3 MOVL SPLAY BLOCK, RO : 2169 
01 TST (RO) : 
C BEQL 3 
01 f BRw 17$ ; 
6 AE OF 1$: PUSHAB Act BUFFER ; 
06 AE 0200 8F 3c MOVZWL #512, 4(SP) : 
4 AE OF A PUSHAB 4(SP5S ; 
000000006 9 f CALLS a2, L 1BSGET_VM ; 
D 44 ae TATUS : 
8 é 7 BLBS STATUS, 4 : 


Oe Oe Oe Oe Os Oe Oe Oe Oe Oe Oe Os Oe Oe Os Seer Geers 
“ 
Lv) 
oo oo 
oo oo 
oo £00 
oo —-ooO 
oo oo 
oo co 
oo NOOO OO 


2175 
2176 
| 


ow 
on 
oo 
wwe 


50 FTES 


5: 
@ 
S 
& 


5C AE 
60 A 
5 
0 AE 
4 AE 
FC AB 00 6E 
10 AE 
_ 


000000006 99 


57 
57 
0 


3 

08 00 ee 
08 00 6€ 
03 03 Ab 

FB AD 


NUM ONO MONO 
OOO ~ —MmwDowowoe 


WFosen-t90e 5:42:09 yateTT a isee 2 v4, 


BR 
MOV7BU 


i SYSSFLUSH 
SYSSWAIT 


U 
L1Bss GNAL 
erATU US, # 


Q: 43. STATUS 
#0, #3. WORST SERROR, RO 


4 
#0, (SP), #0, #64, ACL_FIB 


w6s, ACL_F IBDESC 
F18. Ast FIBDESC +4 
GiSPLA OCR, RO 
94 (nO) "ACL -f 1844 
“F18+8 


50 tsps, ‘ > ACL_LENGTH, @ACL_BUFFER 


#2425344 ATR_DESC 
UrFER, ATR_DESC+4 
Atte bese 
-(SP) 
ATR_DESC 
=(SP) 
-($P) 
ACL _F IBDESC 
-(SP) 


aCe ay BUFFER ACE_POINTER 
, #0, #8, ACE_BINDESC 


#0, (SP), #0, #8, ACE_TXTDESC 
(ACE POINTER) 
ACL_BUFFER, R 
ACL “LENGTH R 
ACE“POINTER, RO 
3(ACE_POINTER), 9$ 


panes ACE _BINDESC 


OSRCSDISPLAY. 832;1 


Page 


78 
(8) 
2179 


2205 
2206 
2207 


3309 


2210 
2211 
2212 


2215 
2218 


DISPLAY 15- 
APPL Ay 7-3 
& AD 6 D 114 
FG AD 0co9 if 80 118 
F4 = =AD 6 Ae 4 138 
oh 2 oe Dae 
4 0? 12F 
04 AE A 00 1 10$: 
gs AE oF 1 118: 
0000° CF f 1 
—4 AB OF 13¢ 
Ff AD fF 15F 
1B MB Boree 
900000006 9 fF 148 
9 '¥) 14F 
0 € 1 
8 DD 3 
69 4 FB 1 
8 DD OO1SA 
6A 9 FB 0015C 
- Bite 
07 9) 98 0164 
18 «#1 0167 
50 57 03 00 EF 00169 
50 F7ES §€6—CB 03 00 + O198 
OA 18 001 
F7ESG c8 27 10000000 ef c° O0181 1g: 
04 O18 . 
04 AE 56 D1 00185 14$: 
19 §7D1 c8 i i¢ O18 
ce ie eats 
FO AD 9F 00194 
C AE 04 00197 
000000 6c ar +4 BION 
ano00000s op SOS EB ODA 
0000° cf 9f OO1IAD 
D4 181 
00006 gf 05 =#=FB 133 
28 $5 a5 ies oe 
FF 36 1 186 
50 01 ? tH 17%: 


; Routine Size: 453 bytes, Routine Base: S$CODE$S + 17F9 


ean 
° 


VAX-11 Bliss-32 V4.0- 


pry98e F3:18:4 — SAERSUMGAASTERCCDIA’ Sac SOISPLAY.832:1 


eee R Ace gBINDESC +4 
Eafext, att vO Fbesces 

~~ * FLAGS*1, 10$ 

, 4(SP) 


RBVWAV®WP PPS VL WSs 


#0. , STATUS 
’ * WORST SERROR, RO 


#268435456, STATUS, WORST_ERROR 
STATUS, RO 


_POINTER, ACL_BUFFER 
#1, QUAL_FLAGS*1, 15$ 
ai. =(SP 

A é spp ese 


; las EEEANS 
S75 GETMSG 

AcE T 

PA ATK 


SP) 
a DIRSOUTPUT 
(ACE POINTER) ro 
3 RCE_P 


- RO 


Page 


Pe Se Se Se Se Se Se Se Se Se Se Be Se Be Se Se Ge Se Se Ge Se Se Se Be Se Ge Se Se Se Se Se Ge Fe Ge Se Se Se Se Se Se Se Fe Se Se Se Se Se Se Se 


: 


33 


22 
22 


(8) 
19 
3} 
1 
8 
32 


33 
35 


LBF 


DEF 


LIE 


. she’ Pa 
IR. SRCIDISPLAY.832;1 


8g 

DISPLAY iSese =1984 23:42: VAX-11 Bliss-32 v4.0 
W500 etiam SE te cee 
E 186° ; GLOBAL ROUTINE DIRSTOTAL = 

: 1 : 5 1 lee 

; 1863 ‘ ii 

: 1 17 1 | FUNCTIONAL DESCRIPTION: 

; 1392 28 : Display the per directory total 

: 1809 60 1: CALLING SEQUENCE : 

; 1868 61 DIRSTOTAL () 

: 1850 63 1 | INPUT PARAMETERS: 

a. Up | Sitaeee 

: 1878 66 1! IMPLICIT INPUTS: 

; 1874 6 ..% none 

: 1875 68 1 | OUTPUT PARAMETERS: 

gs i Sees 

: 1878 71 1 ' IMPLICIT OUTPUTS: 

3 $4 f : none 

> 1881 74 1 | ROUTINE VALUE: 

; 188¢ 75 13 1 

; 188 6 : 2 

> 1884 77 1°! SIDE EFFECTS: 

; 1885 78 «1! none 

> 1886 79 13 

BBs 3 a 

; 1889 i BEGIN 

: 1891 84 EXTERNAL ROUTINE 

§ 4 94 tH DIRSOUTPUT; ! General output routine 

: 1894 spo IF NOT .QUAL_FLAGSCDIR_V_QUAL_GRAN) 

3: 1895 288 ve QUAL _FLAGSCDIR_V_GUAL_TRAIJ 

TB BB Ecc 

> 1898 91 WRITE (O, °"); 

> 1899 29 IF .QUAL_FLAGSCDIR_V_QUAL_SIZEJ OR .QUAL_FLAGSCDIR_V_QUAL_FULL] 

; 1900 o THEN 

: 1901 94 & BEGIN 

: 1908 95 4 IF .QUAL_FLAGSCDIR_V_SIZE_ALL] OR QUAL FLAGSCDIR V_QUAL FULLJ 

3; 190 96 4 THEN WRITE (DIRS_TOTSIZA c. FILES OVAL . TOTAL ALLOC) 
> 1904 P 22097 4 ELSE WRITE (DIRS-TOTSIZ, 0. fOTAL "ICES: Ue <° T~FLAGSCDIR V_SIZE_U 
3; 1905 98 «4 THEN Ue TAL USED ECSE mit te EALLOC)); 
: 1906 99 & END 

; 1907 90 ELSE WRITE (DIRS$_TOTNOSIZ, 0, .TOTAL_FILES); 

> 1909 ; GRAND_USED = .GRAND_USED + .TOTAL_USED; 

> 1910 GRAND-ALLOC = .GRAND_ALLOC + .TOTAL_ALLOC; 

+ 1911 GRAND “FILES = . “Fites + ,TOTAL-FILES: 

: 1918 5 @ GRAND-DIRS = .GRAND_BIRS + 1; 

: 191 TOTAL-USED = TOTAL PRLLOe = TOTAL_FILES = 0; 

: 1915 4 RETURN 1: 

3 1916 


v3 


Pse 


SMS 


SMS 


SPL 


$cc 


Ll 


Ll 


tl 


' 


Pr (ie: 


(31917 2310 1 END; 
0000000 039 
00000090 Hi 
it 
SoH. $3 
0 Bea 
00000001 00584 
00000000" 00588 
00 0058C 
BR 288 
00000001 005C0 
00000000° 005¢4 
000C 00000 
90006 cr 9E 00002 
52 00000000 FE 43 0000 
68 01 $ EO 0000 
67 03, Ae £9 O0018 
ool te Sa 
63 FB 00010 
50 0444 C2 dO 00020 
05 Q2 Ae 03 €0 00025 
40 01 As 01 €1 3 A 
05 02. =A 04 E0 0002F 
16 01 Ae 01 a it 
7E 043C g¢ 4 8 9 
4 CF oF 0040 
000000006 8F 0D 00044 
3 2 fo nn 
F ice 40 
06 02 Ae § E1 Q004F 
043C 62 «(DD 6 4 
04 11 8 
0440 g¢ 44 i 
44 9 F oF O¢b 
000000006 8F dD 00064 
je 
| wat: 
oonl8Bs OF HH 
| 
| 
| 


mse 
Sat 


6$: 


Be §3:18:83 


' End of routine DIRSTOTAL 


-PSECT 
-BLKB 


SPLITS,NOWRT ,NOEXE,2 


- LONG 
-ADDRESS P.AIN 
BYTE 


*BLKB 


LONG 1 
-ADDRESS P.AIP 
BYTE 


*BLKB 


“BLKB 


LONG 1 
-ADDRESS P.AIR 
BYTE 


-LONG 1 
-ADDRESS P.AIT 


SCODES .NOWRT 2 


DIRSTOTAL, Save R2,R3 
? RS 


DIRSOUTPU 
QUAL » Re 
#2, GQUAL_FLAGS+1, 7$ 


P.AIO 
#DIRS_TOTSIZALL 
#3. DIRSOUTPUT 


#6, QUAL_FLAGS#2, 4$ 
TOFAL USED 


TOTAL _ALLOC 
R 


P.AIQ 
#DIR$_TOTSIZ 
+e DIRSOUTPUT 


P.AIS 
#DIR$_TOTNOSIZ 


VAX-11 Bliss-32 V4.0-74 
DISKSVMSMASTER: CDIK.SRCIDISPLAY.832; 


Page 
1 9g 


5) 


2298 


—mn 
~n 


m on pes ee Be 
mn- MOO @ooooqm 


ee 


rune 


& 
15-Sep-1984 23:42:09 VAX-11 Bliss-32 V4.0-74 Page 82 
1 Ht 93:98:93 STEKSUNEHASTERS (OIA SRCTOISPLAY.832:1 9) 
‘ 03 FB 00078 CALLS #3, DIRSOUTPUT ; 

0448 C 043¢ «C2 «OC Ore 7$ ADDL2 TOTAL_USED, GRAND_USED F 3 
aoc oC 440 C2 ¢ ADDLe TOTAL“ALLOC, GRANB_ALLOC : 230 
450 ¢ “a 2 ¢t ADDL TOTAL“FILES, GRAND-FILES 3 2304 

454 ¢ 6 INCL  GRAND-DIR + 2305 
440 ¢€2 7¢ 0009 CLRQ = TOTAL“ALLOC : 2306 
43C § D4 00098 CLRL TOTAL “USED ; 
50 0 oF MOVL ai, RO $ 3308 
4 OO0A? RET + 2310 


; Routine Size: 163 bytes, Routine Base: SCODES + 19BE 


-------_--- — - 
| 


1919 ’ GLOBAL ROUTINE DIRSGRAND_TOTAL = 

1921 18 1 tee 

19 ; %4 613 

19 15 1 | FUNCTIONAL DESCRIPTION: 

12 : : : Display the overall totals 

19 $ 18 1 | CALLING SEQUENCE: 

19 1 DIRSGRAND_TOTAL () 

19 § 1 | INPUT PARAMETERS: 

19 1! none 

1931 ii 

19 3 1 | IMPLICIT INPUTS: 

19 1! none 

19 1 | OUTPUT PARAMETERS: 

3 5 : none 

19 1! IMPLICIT OUTPUTS: 

138 [DiSiee 

1940 1 | ROUTINE VALUE: 

13 ese 

1908 1 ' SIDE EFFECTS: 

1944 .% none 

1945 1 i 

139 ke 

1948 BEGIN 

1950 EXTERNAL ROUTINE 

132) DIRSOUTPUT; ! General output routine 
1988 IF NOT .QUAL_FLAGSCDIR_V_QUAL_TRAI] THEN RETURN 1; 

1955 WRITE (0, °"); 

1956 IF .QUAL_FLAGSCDIR_V_QUAL_SIZEJ] OR .QUAL_FLAGSCDIR_V_QUAL_FULLJ 

195 THEN 

1958 BEGIN 

1959 LF QUAL FLAGSCOIR_V_SIZE_ALL] OR .QUAL_FLAGSCDIR_V_QUAL_FULL] 
1961 rs BEGIN 

196¢ 4 IF .GRAND_DIRS NEQ 1 

196 é THEN WRITE (DIRS$_GTOTSIZALL, 0, .GRAND_DIRS, .GRAND_FILES 
1964 4 [GRAND-USED, .GRAND-ALLOCS 
1965 4 ELSE WRITE (DIRS_GTOTSIZALL1, 0, .GRAND_DIRS, .GRAND_FILES 
1966 4 “GRAND-USED, .GRAND-ALLOCS; 
196 4 END 

1968 5 ELSE 

1969 4 BEGIN 

1970 4 IF .GRAND_DIRS NEG 1 

1971 Pp 6 THEN WRITE (DIRS$_GTOTSIZ, 0, .GRAND_DIRS, .GRAND_FILES 

1978 P 4 (1F .QOAL_FLAGSCDIR“V_SIZE_USED) 
197 4 THEN .GRAND_USED ECSE .GRAND_ALLOC)) 
1974 Pp 4 ELSE WRITE (DIRS$_GTOTSIZ1, 0, .GRAND DIRS; .GRAND_FILES 

1975 P 4 CIF .QOAL_FLAGSCDIR=V_SIZE_USED) 


@8339399388833333393333833333S33333333S3333 | s 


Sa i Se i | 
Ss Ics Bene Ione ee ae ne ie ae 


OOODODODOOOO 
Jobe 
~O 


FANS 


—> —) — 4» 2» 2» 4 2 4 4 2) 2 


Pret 
cs 


RETURN 1; 
END; 


— 
— 


OTNOSIZ 


oo 
oo 
ooo oo 
o-—- oo, OOo OOoO-— 


8000000 


est 25:42:09 


THEN .GRAND_USED ELSE .GRAND_ALLOC)); 


«GRAND DIRS 


! End of routine DIRSGRAND_TOTAL 


P.AlW: 
P.AIZ: 


.GRAND_FILES) 
OTNOSIZ{, °° .GRAND_DIRS, .GRAND_FILES); 


-PSECT SPLITS,NOWRT,NOEXE ,2 


-BLKB 0 
-LONG 0 
»ADDRESS P.AIV 
-BYTE 
-BLKB 

LONG 1 
"ADDRESS P.AIX 
-BYTE 
-BLKB 

-LONG 1 
ADDRESS P.AIZ 
-BYTE 
-BLKB 

- LONG 
“ADDRESS. P.AJB 
-BYTE 
-BLKB 

LONG 1 
"ADDRESS P.AJD 
-BYTE 
-BLKB 
-LONG 1 
-ADDRESS P.AJF 
-BYTE 
-BLKB 
-LONG 1 
»ADDRESS P.AJH 


-PSECT SCODES,NOWRT,2 


P.ALU 
MOVAB QUAL_FLAGS, 
BLBC QUAL “pt aees3t 


CLAL ~ (SP) 


VAX-11 Bliss-32 V4.0-74 
DISKSVMSMASTER:(DIR.SRCIDISPLAY.832; s 


-ENTRY DIRSGRAND vere. Save R2,R3,R4,R5,R6 
MOVAB DIRSOUTPUT, R6 


010) 


2311 


3303 


Dian 


| 
| 
| 
| 
| 


; Routine Size: 


C 


06 


204 bytes, 


02 


02 


Routine Base: 


AL 
hb 
Aa 
AG 
01 
7E 0448 
000000066 
7E 0448 
06 
000000006 
66 
01 
Ab 
0448 
044C 
ss 
090000006 
AG 
0448 
044C 
30 
000000006 
66 
01 
3¢ 
000000006 
00 
000000006 
66 
50 


OOF OF - DP OM —NODOOONONS 


OP MUM OMNIS EIN & WE ET 


9 "DOW 0 -000W 


~—0O OOD yV—"OMMmMmmoonm 


-—9 08 $9 = "9 ODO -OMmM 0 ODO - OM 90 - "9 OW 
9 "OW - © 9 "09 9 9 DO 9 Ss SS DO "0S 


SCODES + 1A61 


S 


ooooooo 
ooooooo 


1 
2 


~— 
Pm 


VAX-11 8 


42, DIRSOUTPUT 
GRAND_P IRS, R2 


3 
GRAND_USED, =(SP) 
#*M<R2,R5> 


P.AlW 
#D1R$_GTOTSIZALL 


GRAND _USED, =(SP) 
gonche R > 


P.Al 
#DIRS_GTOTSIZALL1 
#6, DIRSOUTPUT 
16$ 

R2, #1 


#6, QUAL_FLAGS+2, 
RAND _USED 


GRAND ALL OC 
#*M<R2,R5> 


P.AJA 
#DIRS_GTOTSIZ 


#6, QUAL_FLAGS+2, 
GRAND _USED 
GRAND ALL OC 
gncne F > 


AJ 
#DIR$_GTOTSIZ1 
#5, DIRSOUTPUT 


aS an 


14 
g wae ee 
#DIR _GTOTNOSI2Z 
#*M<R2,R35> 


P.AJG 
#DIR$_GTOTNOS1Z1 
#4, DIRSOUTPUT 
#1, RO 


Liss 
DISKSVMSMAST 


-32 v4.0-74 Pa 5 my 
ER COIR Sac SDISPLAY.B32: 07" (105 
i | 
1 : vir 
13s ; Sta 
2s 3 2351 Ima 
6$ 3 Ima 
3 2354 Ima 
: Nua 
+ 2356) Nun 
: Nua 
: Nun 
: Nua 
: Nun 
+ 2358 Use 
r Nua 
3 Ima 
: Mar 
3 Es! 
> 2351 
> 2362) 
7$ : 2365) 
: Per 
10$ : 2368 
e | Tol 
: Usi 
: Tol 
: 48 
: $ 73. om 
: 2374. "1 
: At 
: 2375 un 
3 | CHI 
PY SY! 
: 2378 
: 2380 


r- 


#2 
5 


ewe wpe ajoloejelelolelolololelelolo) 


MPRNNMNINNINA 2 2 oo 


Ssssesssesssessseees 


DONAVESWN “OOOO UV Fwn—oO 


H 8 
12-Sep-1986 12:16:92 DISKSUNSMASTER 


GLOBAL ROUTINE DIRSAPPEND (MESSAGE_CODE, CONTROL_STRING, ARGS) = 

‘ee 

i FUNCTIONAL DESCRIPTION: 

This routine accepts, as input, an $SFAO control string and any 


arguments to be formatted by the control string. The formatted 
Line is then appended to the current Line. 


2.00 Go. Go. Go. Go. cece 
BUS APU OO NO PUM 


i ROUTINE VALUE : 


' 
' 
' 
! 
' 
: 
1 ! CALLING SEQUENCE: 
¢ : DIRSAPPEMD (ARG1, ARG2, .... ARGn) 
4 ! INPUT PARAMETERS: 
5 : ARG1: message code for the text to display 
: ARG2: address of the S$FAO control string 
} ARGS = ARGn: arguments to be formatted 
99 ! IMPLICIT INPUTS: 
89 none 
40 ! OUTPUT PARAMETERS: 
40 ; none 
404 : 
405 ! IMPLICIT OUTPTUS: 
06 : none 
07 ! 
408 } 
' 
! 
' 
' 
' 


AAALAC OPPOPPIPOPIPOPOPOPPIPIPIID 8 8 Ot tt ee 
=m 
wv oO 
~ 


409 
410 : 
sei; ! SIDE EFFECTS: 
tig none 
«\ 
414 -- 
415 
416 
18 
rth CONTROL_STRING : REF S$BBLOCK; ! Address of the control string 
0 421 2 LOCAL 
031 4 § FAO_CTL_STRING : REF SS8BLOCK ! Addr of $FAO control string 
O36 4 ME SSAGE~ DESC : $BBLOCK COSCSC_S a ! Message text descr 
0 424 MESSAGE TEXT : VECTOR (256, BYTE], ! Message text i 
: 9 4 4 5 LOCAL_DESC : $SBBLOCK COSCSC_S_BLN); ' Local copy of Line descriptor 
: 20 4 $ ! If there is a message code present, get the message text via a SGETMSG. 
3 Oe ? 3 i Otherwise, use the descriptor supplied. 
; $89 430 IF .MESSAGE_CODE NEQ 0 
3 2040 431 THEN 
3 2041 4 ; EGIN 
3 ah & CHSFILL (0, DSC$C_S_BLN MESSAGE DESC); 
> 206 434 MESSAGE_DESCLDSC$Q_CENGTH) = 256; 
3 2064 435 MESSAGE DESCCDSCSA-POINTER) = MESSAGE_TEXT; 
3 2065 Pp $38 SGETMSG (MSGID = .MESSAGE_CODE 
> 2046 P 24 MSGLEN = MESSAGE ~DESCCOSC$W_LENGTH), 


pOeiee Pa 
R.SRCIDISPLAY.832;1 


-——— 


| ¥ al Z . = | ara: ' 
oth fe 


BUFADR = MESSAGE _DESC, 
= 


13RE F3:55:93 Pee RhLe Reha she Sorspuav.ese:1°% ch) 


4 
N 
7 
= 


4 FLAG ); 
440 FAO_CTL STRING = MESSAGE_DESC; 
9 1 44 ELSE FAO_CTL_STRING = .CONTROL_STRING; 
8 § rr ' Format the Line. 
055 44 CHSFILL (0, DSC$C_S_BLN LOCAL DESC); 
0 ‘ 44 LOCAL_DESCEDSC$w_CENGTHS = 102% = .LINE_DESCCOSC$W_LENGTH); 
o38 448 LOCAL-DESCCDSCSA_POINTER] = LINE_BUFFERT.LINE_DESCCDSCS$W_LENGTHI); 
0 


450 SFAOL (CTRSTR 
OUTLEN 


& § OUTBUF 
PRMLST 


= ,FAO CTL STRING, 
= LOCAC_DESC, 

= LOCAL_DESC, 

= ARGS); 


vvv 
= 
—_ 


LINE _DESCCDSCSW_LENGTH) = .LINE_DESCCDSCS$W_LENGTH] + .LOCAL_DESCCDSCS$W_LENGTHI; 
45 RETURN 1; 
459 END; ! End of routine DIRSAPPEND 


~EXTRN = SYSSFAOL 
0 .ENTRY DIRSAPPEND, Save R2,R3,R4,R5,R6,R7 
DESC, 'R 
| 
| 
| 


Se Ge Ce ee Se Se Ge Oe Ge Ge Se Ge Ge Se Ge Ge Ge Se Ge Ge Gee 


SESSTERES 


OFC 00000 : 2381 
57 00000000 EF 9€ 9000¢ MOVAB LINE ‘ ; 
SE FEFO CE 9E 0000 MOVAE -272TSP), SP ; 
AC D 9000¢ TSTL  MESSAGE_CODE : 2430 
28 13 00011 BEQL ; 
08 00 6E i 00 2c 00015 MOVCS #0, (SP), #0, #8, MESSAGE_DESC : 2433, 
F8 AD 0100 8F BO SoOTR MOVW #256, MESSAGE_DESC : 2634. 
FC AD 08 AE 9E 00020 MOVAB MESSAGE TEXT, “MESSAGE _DESC+4 3 2435 | 
7E 01 7D 000 va #i, = : 2439. 
F8 AD 9F 00028 PUSHAB MESSAGE_DESC : 
FB AD OF 00028 PUSHAB MESSAGE-DESC : | 
06 ac DD 00 i PUSHL MESSAGE CODE F 
000000006 00 0S FB 0 CALLS #5, SYSSGETMSG : | 
56 FB AD H 8 MOV MESSAGE DESC, FAO_CTL_STRING + 2640_ 
04 1 C BRB 2 : 2630 
56 08 A 00 1$ MOVL CONTROL STRING FAO_CTL_STRING > Qha2 
08 00 6E 9 rd 9 4 2$ MOVCS #0, (SPT, #0, #8, LOCAL“DESC + 2646. 
6E 0400 af 67 a3 00048 SUBW3 LINE_DESC, #1024, LOCAL_DESC > 2447. 
0 08 A? 3 4 MOVAB LINE~BUFFER, RO > 2448 
31 7 3 MOVZWL LINE DESC : 
04 AE 0 1 1 000 ADDL3. R1, RO. LOCAL_DESC+4 : 
AC 9F O005A PUSHAB ARGS > 2453 
04 AE OF D PUSHAB LOCAL_DESC : 
AE OF PUSHAB LOCAL DESC : 
6 DD 0006 PUSHL FAO_CTL STRING : | 
000000006 00 sr 6 CALLS #4, ~SYSSFAOL : 
oF A 6C ADDW2 LOCAL DESC, LINE_DESC F 455 
0 DO 0006F MOVL #1, RO : 2457 


eee... 7 
i 


Be Oe Oe Oe Oe Se Oe Se Oe Oe Se Se Se Oe Oe Be BH Se Se Se Se Be Se Oe Be Oe Se Oe Se Se Oe Se Se Oe Se Oe Se Oe Se Se Se Se Se Se Se SESH SH Se Oe Oe Oe SH Be ee BH ee 


- 


byseyay 15-seo-1984 93:46:03 VAX-11 Bliss-32_V4.0-7 


i 
i 


14-Sep-19 DISKSVMSMASTER:CDIR. sre DISPLAY.832;1 
04 00072 RET 
; Routine Size: 115 bytes, Routine Base: SCODE$S + 1820 
; 9 60 
3; 20 461 1 END 
3; 207 462 0 ELUDOM 
; PSECT SUMMARY 
: Name Bytes Attributes 
; DIRSCOMMON 2164 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, OVR,NOPIC,ALIGN(O) 
: SPLITS 1560 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; SOWNS $8 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; SCODES 70 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
Library Statistics 
soccceo= Symbols -<------ Pages Processing 
File Total Loaded Percent Mapped ime 
_$255$0UA28: CSYSLIBILIB.L32;1 18619 237 1 1000 00:01.7 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL OPTIMIZE)/LIS=LIS$:DISPLAY/OBJ=OBJ$:DISPLAY MSRC$:DISPLAY/UPDATE=(ENH$:DISPLAY) 


Size: nad © °, ¢ 3792 data bytes 
Run Time 

Slaseed’’ Time: 

Lines/CPU Min: i? 


Lovenes/CPy-Rin: 24552 
Y Used: 898 pages 
a ation Complete 


Page 


88 
(11) 


: 2459 


IPMENT CORPORATION 
L_AND PROPRIETARY 
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